Expand a Macro to second tab or sheet in a file

[jrisebo]

I have a macro now that runs and sorts the data in a sheet. Call it 'Sheet1'. I want the macro to do the same thing to a second sheet, call it 'sheet2'

Here is how the code starts with 'sheet1'

ActiveWorkbook.Worksheets("sheet1").AutoFilter.Sort. _
        SortFields.Clear

...then goes on to sort.


So what does it need to say to also do sheet2?
Thanks

 

[VoG]

Try a loop like this

Dim ws As Worksheet
For Each ws In Sheets(Array("Sheet1", "Sheet2"))
    With ws
        .AutoFilter.Sort.SortFields.Clear
        'rest of code
    End With
Next ws