Sort Columns

Hi,

I have 6 columns and 5000 rows.
My headings are:
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

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 are:
> 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
>
>