范围类的自动筛选方法。不寻常

Question

我发生了一个错误，这似乎以许多不同的方式困扰着许多不同的人。就我而言，我的代码可以运行，但是每次更改后都会弹出运行时错误，这很烦人。

我的代码如下：

Public Sub Filter_Sheets()

    Dim i As Long
    Dim comboBox As ControlFormat

    With ThisWorkbook
        Set comboBox = .Worksheets(9).Shapes("Drop Down 229").ControlFormat
        For i = 1 To Worksheets.Count
            .Worksheets(i).UsedRange.AutoFilter Field:=15, Criteria1:=comboBox.List(comboBox.ListIndex)
        Next
    End With 
End Sub

失败的行是.Worksheets(i).UsedRange.AutoFilter Field:=15, Criteria1:=comboBox.List(comboBox.ListIndex)

我对范围和工作表以及错误代码上方的行尝试了不同的操作。我尝试在标准周围加上引号，但还没有解决该错误的方法。

有人知道吗？