When do you get the error? What is the one thing that the sheet has in common
each time the error is generate? Is there no data on the sheet, or ... The
only suspisciosu thing I see in the code is that you have set Header:=xlGuess
which seems odd since I would think you would know ahead of time if the data
ws going to have a header or not...
--
HTH...

Jim Thomlinson


"JT" wrote:

I have a macro in an Access database that opens a new Excel workbook and
writes data to a sheet in the workbook. The macro then does "stuff" to the
data (sort, total, etc.)

I'm receiving an error message when the macro sorts. The message I get is:
"Method 'Range' of object_Global' Failed".

Following is the code used to sort the data:

.Range("A1").Select
.Range(.ActiveCell, .ActiveCell.Offset(0, 2)).Select
.Range(.Selection, .Selection.End(xlDown)).Select
.Selection.Sort Key1:=Range("B2"), Order1:=xlAscending, Key2:=Range("C2") _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal,
DataOption2 _:=xlSortNormal

.Range("A1").Select

I don't get this error all of the time. Is there anything I can change or
add to the code so I don't get this error.

Thanks for the help and suggestions..........
--
JT