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