Custom sort mulitple sheets?

[Jenks]

Hi,

I have found many macros for sorting multiple sheets by a single column in Excel, however I was hoping someone had a macro for sorting multiple sheets by column "A", then column "B". Let me know if you need any more information. Thanks in advance.

Cheers,
Glenn

 

[doofusboy]

Something like this should work [of course you'd edit for proper range for your workbook]:

Dim ws As Worksheet
    For Each ws In Worksheets
        ws.Sort.SortFields.Clear
        ws.Sort.SortFields.Add Key:=Range("A1:A10") _
            , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        ws.Sort.SortFields.Add Key:=Range("B1:B10") _
            , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        ws.Sort
            .SetRange Range("A1:B10")
            .Header = xlGuess
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
        End With
    Next ws