Private Sub textad_Change() Range("a6:d100").CurrentRegion.AutoFilter Field:=3, Criteria1:="=*" & textad.Text & "*" End Sub