Multiple Sorting

[Ody]

Good day all,

I'm trying to accommodate a request for an auto sort upon a WB opening.

I've used the macro recorder to to acquire the following:

Range("G9").Select
Range("A9:S100").Sort Key1:=Range("G9"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A1:P1").Select

And then I've added this to my ThisWorkbook code. It works fine. My problem is I'm not sure how to incorporate the other two sorts requested. I fear that if I replicate what I've listed it will over write the previous sorts.

I also attempted to use the menu sort function but because the data starts on row 9 of the spreadsheet I'm trying to sort I was having trouble just using the column the menu sort was asking for because the header of this worksheet contains merged cells at the top.

The sorts, in requested order, are as follows: G9, H9 and L9. The associated data is A9:S200.

Any help is appreciated, thanks!

 

[WinteE]

Try :

    Range("A9:S200").Select
    Selection.Sort Key1:=Range("G9"), Order1:=xlAscending, Key2:=Range("H9") _
        , Order2:=xlAscending, Key3:=Range("L9"), Order3:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _
        xlSortNormal

 

[Ody]

WinteE, that worked great! Thank you!