Error Message

[Steve]

I'm trying to run a spreadsheet program written by someone else, but
successfully used by many other people.

I'm getting an error message when I hit the "Go" button. The macro runs for
some time and then stops with this error message:

Run-time error '1004'
Application-defined or object defined error

Debug takes me to the following highlighted area:

Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal


I'm using Excel 2000 and Windows XP Pro (with SP2)

Can anyone shed light on this problem?

Thanks for any help,


Steve

 

[Simon Murphy]

Steve
What is selected when the code runs?
It sounds like the wrong range may be highlighted

cheers
Simon
Blog: www.smurfonspreadsheets.net

 

[Sean]

My guess Steve is one of the values within the sort is not supported
in XL2000. I had a similar problem in code written in XP which would
debug on XL2000. Can't text as I don't have XL2000. Does the debug not
highlight a specifc part of the sort code?

Try and record on your own PC the sort action and see how this code
matches to the one you quote

HTH

 

[Steve]

Simon,

In the line prior to that highlighted is this:

Columns ("A:A") . Select

Steve

 

[Dave Peterson]

DataOption# parms were added in xl2002.

Remove it and test it out.

 

[Steve]

Dave,

How do I remove it? I get an error message if I just stick a " ' " in front
of the line.

Steve

 

[Dave Peterson]

This
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
becomes
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

(preceding comma, line continuation character, parm and value are removed)

 

[Steve]

Dave,

It works!

Many thanks,

Steve

This
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
becomes
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

(preceding comma, line continuation character, parm and value are removed)