AutoFiltering Multiple Sheets?

Originally Posted by SargeAbernathy

What if I have a sheet I don't want to be affected by AutoFilter?

This will work

Sub FilterAllSheets()
    Dim WS As Object
    For Each WS In Worksheets
        If WS.Name <> "MySheet" Then
            With WS.Range("A1")
                .AutoFilter
                .Sort Key1:=WS.Range("A1"), Order1:=xlAscending, Header:= _
                      xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
                      DataOption1:=xlSortNormal
            End With
        End If
    Next WS
End Sub