Sorting Data over several worksheets

[PMRetired2012]

I have a excel file that has 7 worksheets in it. I have a button set up that says Sort data. I want to be able to use one button (Sort Data) to sort data over those 7 sheets but each sheet be alphabetized by its self. Also i want the cells that are to be sorted on each sheet to be: A3:AL32 and A36:AL39.

 

[Akuini]

Try:

Sub toSort1()

Dim ws As Worksheet
    For Each ws In Worksheets
        ws.Range("A3:AL32").Sort Key1:=ws.Range("A3"), Order1:=xlAscending, Header:=xlNo
        ws.Range("A36:AL39").Sort Key1:=ws.Range("A36"), Order1:=xlAscending, Header:=xlNo
    Next
End Sub