how to filter number field using wildcard with VBA

[MSMM]

Hi Mr Excel,

I have a data table field with partial texts and numbers stored in it.
I would like to filter using wildcard but it only works on text field.
Would like to tap your expertise.
Many thanks.

MSMM

ESN field
123456
554569
775566
ac4567
661177
efg786

Response1 = 456

Sub FilterESN()

Dim Show_Box1 As Boolean
Dim Response1 As String

Sheets("Current").Select
Show_Box1 = True
Response1 = InputBox("Enter the ESN number.", _
"Number Entry", , 250, 75)

If Response1 = "" Then
Show_Box1 = False
End If

ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=32, Criteria1:="=*" & Response1 & "*"

End Sub

 

[Fluff]

Hi & welcome to MrExcel.
As far as I know you cannot use wildcards with numbers in the autofilter.

Could you convert your numbers to text?