error in sorting
I want a macro to sort a number of collums
I use the following program
Range(Cells(2, ccol), Cells(i - 1, ccol + 1)).Select
Selection.Sort Key1:=Range(Cells(1, ccol)), Order1:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
ccol is the column number and i is the deph
I get an error in the last line.
The error wil be in the "Key1:=Range(Cells(1, ccol))"
What am i doing wrong
Greetings Hans
|