Search on column in table works on other columns but not column 1

[alwynb]

Hi
I got following this script which works great on columns 2+ searches but not when I choose column 1 as range then all data is hidden. Anyone know why I've tried it on different tables.

Private Sub TextBox1_Change()
ActiveSheet.ListObjects("Table2").Range.AutoFilter Field:=1, _
Criteria1:="*" & [B2] & "*", Operator:=xlFilterValues
End Sub

Sub clearFilter()
[B2] = ""
ActiveSheet.ListObjects("Table2").Range.AutoFilter Field:=1
End Sub

 

[alwynb]

Seems the problem is it does not work with numbers or mix of numbers and text. It only works with text