Я сталкиваюсь с ошибкой, поскольку время выполнения 1004 на функции фильтра ниже в Excel VBA

Question

Private Sub TextBox1_Change()
Application.ScreenUpdating = False
ActiveSheet.ListObjects("Data").Range.AutoFilter field:=2, Criterial:="*" & [F1] & "*", Operator:=xlFilterValues
Application.ScreenUpdating = True

End Sub