VBA实现控件输入框中输入内容进行筛选Excel代码

VBA实现控件输入框中输入内容进行筛选Excel代码：

Private Sub TextBox1_Change()
   If Len(TextBox1.Value) = 0 Then
      Sheet2.AutoFilterMode = False
      
   Else
      If Sheet2.AutoFilterMode = True Then
      Sheet2.AutoFilterMode = False
      End If
      Sheet2.Range("A8:J" & Rows.Count).AutoFilter _
      Field:=1, Criteria1:=TextBox1.Value
      
      End If
End Sub