SortSpecial Method Example

This example sorts the range A1:G37 on Sheet1, using cell A1 as the first sort key and cell C1 as the second sort key. The sort is done by stroke in ascending order by row, and there are no headers.

Worksheets("Sheet1").Range("A1:G37").SortSpecial _
    SortMethod:=xlStroke, _
    Key1:=Range("A1"), Order1:=xlAscending, _
    Key2:=Range("C1"), Order2:=xlAscending