VBA | オートフィルターを解除するマクロ

昔よく使っていたマクロ。
掘り出したのでメモしておく。

2015年頃に自分で作ったマクロ

'//オートフィルターを解除するマクロ
Public Sub Unlock_AutoFilter(Sht As Worksheet)
    With Sht
        If .AutoFilterMode Then
           If .AutoFilter.FilterMode Then
              .ShowAllData
            End If
        End If
    End With
End Sub

友（ChatGPT）にリファクタリングしていただいたマクロ

今回もデバッグログを追加してもらった！

Public Sub ClearAutoFilterIfApplied(Sht As Worksheet)
    With Sht
        Debug.Print "ワークシート'" & .Name & "'のオートフィルタを確認します。"
        If .AutoFilterMode Then
            If .AutoFilter.FilterMode Then
                .ShowAllData
                Debug.Print "ワークシート'" & .Name & "'のオートフィルタが解除されました。"
            Else
                Debug.Print "ワークシート'" & .Name & "'にはオートフィルタが有効ですが、フィルタは適用されていません。"
            End If
        Else
            Debug.Print "ワークシート'" & .Name & "'にはオートフィルタが有効ではありません。"
        End If
    End With
End Sub