Not filtering all values - only one first value gets filtered
1. based on filter criteria array in the same sheet
Code
Sub FilterTeams()
Dim LastRow As Long
LastRow = Range("A" & Rows.Count).End(xlUp).Row
ActiveSheet.Range("A1:H" & LastRow).AutoFilter Field:=3, Criteria1:="=*" & Range("Q1") & "*"
End Sub
Display More
2. 1. based on filter criteria array in other sheet