VBA to sort data across multiple worksheets (same range)

[DrH100]

Hi all

As usual I have no idea where to start on this one.

I have a workbook with a number of sheets in that I want to perform a sort on all of them.

I would like to sort the data in A29:K100 (No headers) by column B (ascending) across all worksheets in the workbook. I don't know how many there will be as people may add sheets at any time however the range will always be the same.

Hope that makes sense and as always any help appreciated.

 

[mumps]

Try:

Sub SortSheets()
    Application.ScreenUpdating = False
    Dim ws As Worksheet
    For Each ws In Sheets
        ws.Sort.SortFields.Clear
        ws.Sort.SortFields.Add Key:=Range("B29:B100"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        With ws.Sort
            .SetRange Range("A29:K100")
            .Header = xlNo
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
        End With
    Next ws
    Application.ScreenUpdating = True
End Sub

 

[DrH100]

Thanks Mumps.

Not sure I understand it all but works perfectly.

 

[mumps]

You are very welcome. The macro just loops through all the sheets and sorts each one based on the range you mentioned.