Excel 2003 - VBA Sort 4th way

[sachavez]

Excel 2003

I'm using the following code to sort three ways, but need to update the code to sort a fourth way (column B is the forth column).

Any ideas?

    Range("A1:J1000").Sort Key1:=Range("F2"), Order1:=xlAscending, Key2:=Range _
        ("G2"), Order2:=xlAscending, Key3:=Range("A2"), Order3:=xlAscending, _
        Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:= _
        xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, _
        DataOption3:=xlSortNormal

Thanks in advance!!

 

[VoG]

Try

 Range("A1:J1000").Sort Key1:=Range("B2"), Order1:=xlAscending, _
        Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:= _
        xlTopToBottom, DataOption1:=xlSortNormal
 Range("A1:J1000").Sort Key1:=Range("F2"), Order1:=xlAscending, Key2:=Range _
        ("G2"), Order2:=xlAscending, Key3:=Range("A2"), Order3:=xlAscending, _
        Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:= _
        xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, _
        DataOption3:=xlSortNormal

 

[sachavez]

Saved the day, again, VoG!

Issue solved!

Thank you, Sir!!!