Macro/VBA to filter and unfilter same cell in multiple sheets

[krodriguez]

Hello - I have multiple sheets where I want to apply a filter and unfiltered, the location for the filter is the same across all sheets and range is the same BW8:BW400. I recorded a macro for three of the sheets to select the filter and looks like this (see below) but is there a way to consolidate all sheets in 1 statement rather than listed 1 by 1 and also to unfilter all sheets

Sub filters_detail_PLs()


ActiveSheet.Range("$BW$8:$BW$34").AutoFilter Field:=1, Criteria1:="1"
Sheets("RLN-Red Rev").Select
ActiveSheet.Range("$BW$8:$BW$386").AutoFilter Field:=1, Criteria1:="1"
Sheets("RLN-COGS").Select
ActiveSheet.Range("$BW$8:$BW$386").AutoFilter Field:=1, Criteria1:="1"
Sheets("RLN-Logistics").Select

End Sub

 

[Fluff]

Something like

Sub FlterShts()
   Dim Ws As Worksheet
   For Each Ws In Sheets(Array("RLN-Red Rev", "RLN-COGS", "RLN-Logistics"))
      If Ws.AutoFilterMode Then Ws.AutoFilterMode = False
      Ws.Range("BW8:BW400").AutoFilter 1, "1"
   Next Ws
End Sub

 

[krodriguez]

This worked great to filter but how do I unfiltered?

 

[Fluff]

Like

Sub UnFlterShts()
   Dim Ws As Worksheet
   For Each Ws In Sheets(Array("RLN-Red Rev", "RLN-COGS", "RLN-Logistics"))
      If Ws.AutoFilterMode Then Ws.AutoFilterMode = False
   Next Ws
End Sub

 

[krodriguez]

Awesome thanks for your help on this subject and the other VBA you help me out! have a great weekend!

 

[Fluff]

Glad to help & thanks for the feedback