VBA 2-Level Sort

[flynavy]

I'm looking for a very simple, straightforward, 2-level sort (VBA) of one sheet in a workbook. I'm a mid-level VBA coder (just started 6 months ago). I have done many sorts in VBA, and many 2-level sorts using Excel without VBA. I'm just looking for something elegantly simple using VBA (best practice). Let's say my sheet is A1:D100, and I want to sort ascending by column "A" first, and then by column "C", both ascending, and no headers.
I've seen many suggestions of many different forums, but I'm looking for, as I said, one that is "elegantly simple".
Thanks in advance for any help.

 

[yky]

Range("A1:D100").Sort _
        key1:=Range("A1"), order1:=xlAscending, _
        Header:=xlNo, DataOption1:=xlSortTextAsNumbers, _
        MatchCase:=False, Orientation:=xlTopToBottom

        key2:=Range("C1"), order1:=xlAscending, _
        Header:=xlNo, DataOption1:=xlSortTextAsNumbers, _

        MatchCase:=False, Orientation:=xlTopToBottom

 

[Peter_SSs]

Try

Range("A1:D100").Sort Key1:=Range("A1"), Order1:=xlAscending, _
                      Key2:=Range("C1"), Order2:=xlAscending, _
                      Header:=xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
                      DataOption1:=xlSortNormal, DataOption2:=xlSortNormal