VBA Autofilter partial match in column

[BenGee]

Hi

I currently have;

Sub Button1_Click()
    With ActiveSheet.Range("A8:J61")
        .AutoFilter Field:=2, Criteria1:=ActiveSheet.Range("A5").Value
        .AutoFilter Field:=4, Criteria1:=ActiveSheet.Range("B5").Value
        .AutoFilter Field:=9, Criteria1:=ActiveSheet.Range("C5").Value
End With
End Sub

But what I'm trying to do is something like;

Sub Button1_Click()
    With ActiveSheet.Range("A8:J61")
        .AutoFilter Field:=2, Criteria1:=ActiveSheet.Range("A5").Value
        .AutoFilter Field:=4, Criteria1:=Text that partially matces ActiveSheet.Range("B5").Value
        .AutoFilter Field:=9, Criteria1:=ActiveSheet.Range("C5").Value
End With
End Sub

Any help would be hugely appreciated!

 

[Fluff]

Try

.AutoFilter Field:=4, Criteria1:="*" & ActiveSheet.Range("B5").Value & "*"

 

[BenGee]

That's perfect, thank you Fluff!

 

[Fluff]

Glad to help & thanks for the feedback