Private Sub TextBox1_Change()
[COLOR=#008000]'Replace the words TblSales and a1 with your own table name & linked cell address. You can also change the field number (2) to the column to filter[/COLOR]
ActiveSheet.ListObjects("TblSales").Range.AutoFilter Field:=2, Criteria1:="*" & [a1] & "*", Operator:=xlFilterValues
End Sub