Columns("H:I").Select
Selection.Columns.Group

temp := oleexcel.SelectRange( 1 , 1 , 1 , 1 );
temp:= oleexcel.SET_WIDTH( 3 );

	FUNCTION SET_WIDTH(p_width VARCHAR2)
		RETURN PLS_INTEGER IS
	BEGIN
		IF (p_width IS NOT NULL) then
			CLIENT_OLE2.SET_PROPERTY(oleexcel.excelobjr, 'ColumnWidth', p_width);
		END IF;
		RETURN  1 ;
	EXCEPTION
		WHEN OTHERS THEN
			RETURN  0 ;
	END;

function SelectRange(beginrow in number, begincolumn in number,
	endrow in number, endcolumn in number)
	return pls_integer is

obj1 client_ole2.obj_type;
temp1 varchar2( 16 );
temp2 varchar2( 16 );
begin
	if (excelobjr is not null) then
  	client_ole2.release_obj(excelobjr);
	end if;
	arglist := client_ole2.create_arglist;
	client_ole2.add_arg(arglist, beginrow);
	client_ole2.add_arg(arglist, begincolumn);
	obj1 := client_ole2.get_obj_property(excelobjc, 'Item', arglist);
	client_ole2.destroy_arglist(arglist);
	temp1 := client_ole2.get_char_property(obj1, 'Address');
	client_ole2.release_obj(obj1);
	arglist := client_ole2.create_arglist;
	client_ole2.add_arg(arglist, endrow);
	client_ole2.add_arg(arglist, endcolumn);
	obj1 := client_ole2.get_obj_property(excelobjc, 'Item', arglist);
	client_ole2.destroy_arglist(arglist);
	temp2 := client_ole2.get_char_property(obj1, 'Address');
	client_ole2.release_obj(obj1);
	arglist := client_ole2.create_arglist;
	client_ole2.add_arg(arglist, temp1);
	client_ole2.add_arg(arglist, temp2);
	excelobjr := client_ole2.get_obj_property(excelobjs, 'Range', arglist);
	client_ole2.destroy_arglist(arglist);
	return  1 ;
exception
	when others then
		return  0 ;
end;

create or replace 
FUNCTION NameCol (N number) RETURN varchar2 IS

str VARCHAR2( 100 );
var number;
Value number;
FUNCTION mchar( m number) RETURN VARCHAR2 IS
i Integer;
BEGIN
  i:=m+ 64 ;
   return Chr(i);
  
END;
BEGIN
 
 if (N <  1 ) and (N> 702 ) then 
   null;
   else
  str:='';   
  Value:=N;
  
  if Value<= 26  then
      begin
         str:=mchar(Value);

				  return (str);
        end; 
      end if;

end if;


if  mod(Value, 26 ) =  0  then 
	str:=mchar(  floor((Value- 1 )/ 26 ))||'Z';
else 
		str:=mchar(  floor(Value/ 26 ))||mchar( mod(Value, 26 ));
END IF;	
 return (str);
END;