EXCEL VBA 全シートのオートフィルタ―の絞り込みを辞める

オートフィルターにデータが隠れていて、再度確認した事ないですか？
このマクロは、開いているブックのすべてのシートのオートフィルターを解除します！

Sub psn全シートのオートフィルタ―の絞り込みを辞める()
    '全シートを標準ビューにする。
    Call msub全シートのオートフィルタ―の絞り込みを辞める(ActiveWorkbook)
End Sub

'   指定ブックについて全シートのオートフィルタ―の絞り込みを辞める。
'
'引数   ByVal wkbTarget As Workbook　対象ブック
'URL　https://pgbigoroku.hatenablog.com/entry/2022/08/23/142805
'
'2022/8/18
Public Sub msub全シートのオートフィルタ―の絞り込みを辞める(ByVal wkbTarget As Workbook)
    Dim intFor As Integer
    With wkbTarget
        .Activate
        For intFor = .Worksheets.Count To 1 Step -1
            If .Worksheets(intFor).FilterMode Then
                .Worksheets(intFor).ShowAllData
            End If
        Next
    End With
End Sub