Sub sortcol()

Range("A1:G12936").Sort Key1:=Range("A1"), Order1:=xlAscending, _
Key2:=Range("C1"), Order2:=xlAscending, _
Key3:=Range("D1"), Order3:=xlAscending, _
Header:=xlGuess, _
MatchCase:=False, _
Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal
Range("A1:G12936").Sort Key1:=Range("B1"), Order1:=xlAscending, _
Key2:=Range("E1"), Order2:=xlAscending, _
Key3:=Range("F1"), Order3:=xlAscending, _
Header:=xlGuess, _
MatchCase:=False, _
Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal
End Sub

--
Regards,
Tom Ogilvy


"T De Villiers" wrote:


Hi,

I have 6 columns and 5000 rows.
My headings a
a,b,c,d,e,f

I need to write a macro which sorts the cols in order:
a,c,d,b,e,f

It does need to be a macro, as opposed to manually doing a custom
list.
I have tried writing a macro which involves custom lists (below)
but doesnt quite work.

Thanks


Sub sortcol()

Range("A1:G12936").Sort Key1:=Range("A1"), Order1:=xlAscending,
Header:= _
xlGuess, OrderCustom:=6, MatchCase:=False,
Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal
End Sub


--
T De Villiers
------------------------------------------------------------------------
T De Villiers's Profile: http://www.excelforum.com/member.php...o&userid=26479
View this thread: http://www.excelforum.com/showthread...hreadid=565980