Hide Rows based on user input

[gd6noob]

I have a code below that allows user input to select which sheet and criteria to hide.
Is there a way to allow multiple sheets to filter at once.
i.e. I have cells B1,B2,B3,B4 and B5 with sheets names, if I have B2 and B4 as my active cell (selected cells) and run the macro with criteria, it will filter those sheets?

Sub filter()

    Dim noRows As Integer
    Dim myRange As String
    Dim searchRange As String
    Dim criteria_1 As String
    Dim mysheet As String
    
    mysheet = Application.InputBox("Enter Sheet Name")
    
    noRows = Worksheets(mysheet).UsedRange.Rows.Count
    noRows_cor = noRows + 3
    myRange = "A1:A" & noRows_cor
    criteria_1 = Application.InputBox("Enter your Criteria:")
         
    Worksheets(mysheet).Range(myRange).AutoFilter Field:=1, Criteria1:="<>" & criteria_1
          
End Sub

 

[DanteAmor]

if I have B2 and B4 as my active cell (selected cells) and run the macro

How about:

Sub filter()
  Dim noRows As Integer, c As Range
  Dim myRange As String, criteria_1 As String, mysheet As String
  
  criteria_1 = Application.InputBox("Enter your Criteria:")
  For Each c In Selection
    mysheet = c.Value
    noRows = Worksheets(mysheet).UsedRange.Rows.Count
    myRange = "A1:A" & noRows + 3
    Worksheets(mysheet).Range(myRange).AutoFilter Field:=1, Criteria1:="<>" & criteria_1
  Next
End Sub

 

[gd6noob]

How about:

Sub filter()
  Dim noRows As Integer, c As Range
  Dim myRange As String, criteria_1 As String, mysheet As String
 
  criteria_1 = Application.InputBox("Enter your Criteria:")
  For Each c In Selection
    mysheet = c.Value
    noRows = Worksheets(mysheet).UsedRange.Rows.Count
    myRange = "A1:A" & noRows + 3
    Worksheets(mysheet).Range(myRange).AutoFilter Field:=1, Criteria1:="<>" & criteria_1
  Next
End Sub

Thank you very much, this works well.

 

[gd6noob]

Ohh just realized that I can only have 1 filter at a time, anyway to keep adding more filters?

 

[DanteAmor]

Ohh just realized that I can only have 1 filter at a time, anyway to keep adding more filters?

What do you mean by adding more filters?
What you asked for is to filter with a criteria taking the name of the sheets of the selected cells (B1: B5)

 

[gd6noob]

What do you mean by adding more filters?
What you asked for is to filter with a criteria taking the name of the sheets of the selected cells (B1: B5)

Sorry for not being clear. When adding the first criteria, it works but when trying to add another one, the first criteria is cleared.

 

[DanteAmor]

What is the second criteria?
How many criteria are you going to add?