Sort in 2003 not working in 2000
 

I've built a 26-column spreadsheet with macros to sort each column,
using XL 2003. When I loaded it onto my laptop which uses XL 2000, the
macros fail.

Here's one of the macros below. The error message says Run-time error
'1004' .The debugger points out the section in in the middle starting
with "Selection Sort".

I'd really appreciate anyone telling me what I need to change, since
I'm not a programmer and really need this sheet to work for my business
ASAP.

Sub NameSort()
'
' NameSort Macro
' Macro recorded 4/11/2006 by Owner
'
' Keyboard Shortcut: Ctrl+SHIFT+N
'
Range("A1").Activate
Cells.Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending,
Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A1").Select
ActiveWindow.SmallScroll Down:=1
ActiveWindow.SmallScroll ToRight:=1
Range("B2").Select
End Sub

Thanks in advance! - Bill

Sort in 2003 not working in 2000
 

Bill,

Remove the code following the last comma (and the comma)...

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

It will look like this...

Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

DataOption was not included with XL 2000.
--
Jim Cone
San Francisco, USA
http://www.officeletter.com/blink/specialsort.html




"karpaydiem" wrote in message ...
I've built a 26-column spreadsheet with macros to sort each column,
using XL 2003. When I loaded it onto my laptop which uses XL 2000, the
macros fail.

Here's one of the macros below. The error message says Run-time error
'1004' .The debugger points out the section in in the middle starting
with "Selection Sort".

I'd really appreciate anyone telling me what I need to change, since
I'm not a programmer and really need this sheet to work for my business
ASAP.

Sub NameSort()'
' NameSort Macro
' Macro recorded 4/11/2006 by Owner
' Keyboard Shortcut: Ctrl+SHIFT+N
'
Range("A1").Activate
Cells.Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A1").Select
ActiveWindow.SmallScroll Down:=1
ActiveWindow.SmallScroll ToRight:=1
Range("B2").Select
End Sub

Thanks in advance! - Bill

Sort in 2003 not working in 2000
 

That did the trick, Jim.
Thanks very much.

Sort in 2003 not working in 2000
 

That did the trick, Jim.
Thanks very much.