Forgot to add.
You may want to call the function similar to this:
oReport.selection.end(xlDown).select
rather than:
.select.Insert Shift = xlDown -- error here
Ramil
>Kevin,
>Try to declare the following variables in the program before executing the OLE codes.
>* END-Arrow values
>xlDown =-4121
>xlToRight =-4161
>xlToLeft =-4159
>xlUp =-4162
>
>HTH, Ramil
>
ramil
~~ learning to stand still