I am trying to auto filter across multiple sheet

[tmcrouse]

I want to filter across multiple sheets on column B desc:

Sub Autofilter_Worksheets()
 Dim p As Integer, q As Integer
 p = Worksheets.Count
 For q = 1 To p
 With Worksheets(q)
 .Range (B1), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
        xlSortNormal
End With
 Next q
 End Sub

 

[SpillerBD]

Your sheets might not exist in a continuous numerical reference.
You would refer to the sheets generically as "Sheet1", "Sheet2", "Sheet5"...
There's something like this but I'm not on the syntax.
With Each Worksheet in Workbook...