VBA to filter when typing in a field

[subtleskeptic]

Hi all I have the below code that enables to me type into an activex text box, and it will filter for all matches in column 13 (N) - N1 is just where the link to active x box is
however, the data set is currently set up as a table, I'd like to just use a normal range, how can I change this code please? Current table name is "Data"

Private Sub TextBox1_Change()
Application.ScreenUpdating = False
ActiveSheet.ListObjects("Data").Range.AutoFilter Field:=13, Criteria1:="*" & [N1] & "*", Operator:=xlFilterValues
Application.ScreenUpdating = True
End Sub

 

[maabadi]

Change:

ActiveSheet.ListObjects("Data").Range.AutoFilter

to your total range. Example

ActiveSheet.Range("A2:L200").AutoFilter