Autofilter a fixed range based on value picked from a drop down list

[Winston618]

Hi, I am working on a vba that auto filter a range (A10:I5000) based on a cell value in A2 (which is a dropdown list) on the same sheet

The code is deprived from a macro that I recorded, however, nothing happens when I run it.

Attached is the file that I am working on, thank you.

Public Sub Sort_test()

If Sheets(1).Range("A2").Value = "*EBR" Then
Sheets(1).Range("$A$10:$I$5000").AutoFilter Field:=2, Criteria1:="=*R*", _
        Operator:=xlAnd, Criteria2:="=*EB*"

If Sheets(1).Range("A2").Value = "*CBR" Then
Sheets(1).Range("$A$10:$I$5000").AutoFilter Field:=2, Criteria1:="=*R*", _
        Operator:=xlAnd, Criteria2:="=*CB*"
       
End If
End If

End Sub

 

[vletm]

It would and could do more
if Sheets(1).Range("A2").Value would be "*EBR" or "*CBR".
Did You get an idea?

 

[Winston618]

It would and could do more
if Sheets(1).Range("A2").Value would be "*EBR" or "*CBR".
Did You get an idea?

I got the code responding by changing

 If Sheets(1).Range("A2").Value = "*EBR"Then

to

 If Sheets(1).Range("A2").Value = Sheets(3).Range("A1") Then

The data on Sheet 3 is the name list in for the drop down box on A2 in Sheet1.

Thanks for the insight.