excel取消全部工作簿的筛选

Sub 取消全部工作簿的筛选()
    On Error Resume Next
     Dim wb As Workbook
     Dim ws As Worksheet
     
     For Each wb In Application.Workbooks
        For Each ws In wb.Worksheets
            ws.UsedRange.AutoFilter
        Next
     Next
     
End Sub