テーブルで複数フィルターをかけているものを一括で解除したい

Question

シートにテーブルAがあり、フィルターが複数かかっています。
上図がフィルターをかける前、下図が３つフィルターをかけた状態です。
下図の状態から、フィルターを全て解除して上図の状態に戻すのを
一括で行う方法は無いでしょうか。
今は一列づつフィルターを解除しています。
よろしくお願いします。

    Dim i As Long
    For i = 1 To Worksheets("フィルター").ListObjects("テーブルA").ListColumns.Count
        Worksheets("フィルター").ListObjects("テーブルA").Range.AutoFilter Field:=i
    Next

---

ご回答を受け下記プログラムで解決

' オートフィルターの絞り込みを解除する(1)または(2)

' (1)適用先をテーブル名を含めて指定
If Worksheets("フィルター").ListObjects("テーブルA").AutoFilter.FilterMode Then
    Worksheets("フィルター").ListObjects("テーブルA").AutoFilter.ShowAllData
End If
    
' (2)テーブル内のセルを選択してから解除
Worksheets("フィルター").ListObjects("テーブルA").Range.Cells(1).Select
If Worksheets("フィルター").FilterMode Then Worksheets("フィルター").ShowAllData

（参考）https://papasensei365.com/excel-filtermode-showalldata/

Answer 1

ShowAllData　で解除できます。

    ActiveSheet.ShowAllData

シートの指定はプログラムで調整してください。

Comments

[nkym771]

ご回答ありがとうございます。
テーブルにフィルターを設定している場合は、少し命令文に追加の内容が必要でした。
　テーブル名を加える or 事前にテーブル内のセルを指定
ご回答を元に解決することができました。
ありがとうございます。

[crowmt]

無事に解決したようで何よりです。
テーブルは見落としていました、すみません。