I use the following line in excel 2003:

Range(Cells(1, ccol), Cells(I - 1, ccol + 1)).Select
Selection.Sort Key1:=Range(Cells(2, ccol).Address),
Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, _
MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal

Works fine.

When i use this macro in excel 2000 it does not work.

What is going wrong?

Greetings Hans

Remove the ", DataOption1:=xlSortNormal" from the fine part of your macro
See whether it works

So, the code becomes

Range(Cells(1, ccol), Cells(I - 1, ccol + 1)).Selec
Selection.Sort Key1:=Range(Cells(2, ccol).Address), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1,
MatchCase:=False, Orientation:=xlTopToBotto

Regards
Edwin Ta

http://www.vonixx.com