PROCEDURE drop_row  (row_num in number,
                     worksheet in ole2.obj_type) is
args ole2.obj_type;
range ole2.obj_type;
hold_range varchar2(20);
  begin
    hold_range := to_char(row_num)||':'||to_char(row_num);
    args := ole2.create_arglist;
    ole2.add_arg(args,hold_range);
    range := ole2.get_obj_property(worksheet,'Range',args);
    ole2.destroy_arglist(args);
    ole2.invoke (RANGE, 'Delete');
    ole2.release_obj (range);
  end;