清除过滤器错误的功能-ShowAllData失败

Question

下午好，

我已经编写了一个传递工作表数组的函数，该函数应该清除每个工作表上的所有过滤器。这是函数：

Function Clearwsfilters(sheets() As Object)

    For i = LBound(sheets) To UBound(sheets)
        With sheets(i)
            If .AutoFilterMode Then
                If .FilterMode Then
                    Debug.Print "Clearing Filters on Sheet: "; i
          ------>   .ShowAllData
                End If
            ElseIf .FilterMode Then
                Debug.Print "Clearing Filters on Sheet: "; i
                .ShowAllData
            End If
        End With
    Next i

End Function

当我运行它时，它卡在了我用箭头指示的线上。该函数将传递给存储在对象数组中的具有相同名称的6个工作表。如有必要，我可以提供有关此数组的更多详细信息。

感谢您对此内容的了解