Why is this code producing R/T 448 - Argument not found

[jim may]

Sub foobar()
Dim SearchText As String
SearchText = "*" & Range("B4").Value & "*"
With ActiveSheet
    .AutoFilter Field:=2, Criteria1:=SearchText
End With
End Sub

 

[shg]

AutoFilter is a Range method, not a Worksheet method.

 

[shg]

E.g.,

Range("A1").CurrentRegion.AutoFilter ...

 

[jim may]

Thanks shg. 2 Excellant responses. Jim

 

[shg]

You're welcome.