[RESOLVED]Advanced Filter

[Mitch_s_s]

the attached code does not appear to be working,
i enter my criteria, say into F2
run the attached code, but no filter is applied
is there anything wrong this code?

Sub AdvFilter()
 
    Range("A9").Select
    Range("A9:K103").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
        Range("A1:K2"), Unique:=False
        
End Sub