In the following code, the macro gives a runtime error 1004: application or
object defined error at the Selection.Sort command.

Sheets("Data").Select
Cells.Select
Selection.Font.Bold = False
Selection.Sort Key1:=Range("A2"), Order1:=xlDescending,
Key2:=Range("B2") _
, Order2:=xlDescending, Header:=xlYes, OrderCustom:=1,
MatchCase:=False _
, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal,
DataOption2:= _
xlSortNormal


The macro works fine for me with Excel 2003, but not for my friend who has
Excel 2000. Is there something in the code that could be removed and still
let the macro function on his pc?

Or is there a setting in his Excel that needs to be changed to allow this to
work?

Thanks!

Thanks so much - very helpful!

"Jim Thomlinson" wrote:

Remove the DataOption2:= xlSortNormal. It is a new feature in 2003 that did
not exist in 2000. xlSortNormal is the default so it does not make a
difference anyway...

--
HTH...

Jim Thomlinson


"Ingrid" wrote:

In the following code, the macro gives a runtime error 1004: application or
object defined error at the Selection.Sort command.

Sheets("Data").Select
Cells.Select
Selection.Font.Bold = False
Selection.Sort Key1:=Range("A2"), Order1:=xlDescending,
Key2:=Range("B2") _
, Order2:=xlDescending, Header:=xlYes, OrderCustom:=1,
MatchCase:=False _
, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal,
DataOption2:= _
xlSortNormal


The macro works fine for me with Excel 2003, but not for my friend who has
Excel 2000. Is there something in the code that could be removed and still
let the macro function on his pc?

Or is there a setting in his Excel that needs to be changed to allow this to
work?

Thanks!

FYI only. It's in xl2002, too <bg.

Jim Thomlinson wrote:

Remove the DataOption2:= xlSortNormal. It is a new feature in 2003 that did
not exist in 2000. xlSortNormal is the default so it does not make a
difference anyway...

--
HTH...

Jim Thomlinson

"Ingrid" wrote:

In the following code, the macro gives a runtime error 1004: application or
object defined error at the Selection.Sort command.

Sheets("Data").Select
Cells.Select
Selection.Font.Bold = False
Selection.Sort Key1:=Range("A2"), Order1:=xlDescending,
Key2:=Range("B2") _
, Order2:=xlDescending, Header:=xlYes, OrderCustom:=1,
MatchCase:=False _
, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal,
DataOption2:= _
xlSortNormal


The macro works fine for me with Excel 2003, but not for my friend who has
Excel 2000. Is there something in the code that could be removed and still
let the macro function on his pc?

Or is there a setting in his Excel that needs to be changed to allow this to
work?

Thanks!


--

Dave Peterson