Did you try looking at Help for Sort? It works the same way in VBA as it does
when invoked from the Data menu.

On Thu, 3 Feb 2005 21:19:02 -0800, Neal Zimm <nealzimm@yahoo.com> wrote:

>Not knowing any better, I took the recorded code for a 3 column sort and
>tried to turn it into a 4 column sort. Got run time 1004 object error. Code
>is below.
>
>Is it possible to do what I'm trying this way? I'd rather not have to select
>different ranges of cells and do a 3 column sort, but I may have to.
>So, have I made an error in the code, or is it just not possible?
>Thanks.
>
>
>Sub zsortbcda()
>Application.ScreenUpdating = False
>
> Columns("A:D").Select
>
> Selection.Sort Key1:=Range("B1"), Order1:=xlAscending, _
> Key2:=Range("C1"), Order2:=xlAscending, _
> Key3:=Range("D1"), Order3:=xlAscending, _
> Key4:=Range("A1"), Order4:=xlAscending, _
> Header:=xlGuess, OrderCustom:=1, MatchCase:=False,
>Orientation:=xlTopToBottom, _
> DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, _
> DataOption3:=xlSortNormal, DataOption4:=xlSortNormal
>
> Range("A1").Select
>
>Application.ScreenUpdating = True
>End Sub