Filtrer efter indhold

Hej
Jeg har denne kode der kan filtrere efter værdien, men hvad skal der stå, hvis den skal filtrere efter indhold?
I kolonne B står der en masse navne og jeg vil gerne søge alle ud der hedder noget med "Hans".

Sub Filter()
    On Error Resume Next
    ActiveSheet.ShowAllData
    ActiveSheet.Range("$A$3:$I$1000").AutoFilter Field:=2, Criteria1:=Range("B1").Value
End Sub