Excel运行时错误424-必需对象

我已经写了一个VBA代码，它将允许我在将过滤列的文本字段中键入文本。但是，当我键入内容时，会收到此错误框（看图片）。

我正在关注本教程，对他来说效果很好：Excel中的动态过滤器

这是VBA代码：

Private Sub TextBox1_Change()

If Len(Texbox1.Value) = 0 Then
    Sheet1.AutoFilterMode = False
Else
    If Sheet1.AutoFilterMode = True Then
        Sheet1.AutoFilterMode = False
    End If
        Sheet1.Range("A2:C" & Rows.Count).AutoFilter field:=1,  Criteria1:="*" & TextBox1.Value & "*"
    End If

End Sub