フィルタモードを解除したい

Question

前提・実現したいこと

ある膨大な量を管理する表を作成しています。
データを軽くするためにフィルタを外した状態で保存できるようなマクロを組みたいと
考えいます。

コードの太文字に原因があるとは思うのですが
教えていただけると幸いです

発生している問題・エラーメッセージ

エラーは出ずにフィルタモードが解除されないまま保存されてしまう。

↓不要な部分を消したりしているので少しごちゃごちゃしておりますすみません）

該当のソースコード

Sub TEST() 'フィルタ解除するパターン

Dim VV As Variant
Dim Cnt As Long

Cnt = 0

For Each VV In ActiveWorkbook.Sheets
If VV.Visible = -1 Then
VV.Activate
ActiveWindow.Zoom = 80
VV.Cells(1, 1).Select
If ActiveSheet.FilterMode = True Then ActiveSheet.AutoFilter

   End If

Next VV

If ActiveSheet.FilterMode = True Then　**ActiveSheet.AutoFilter**
End If

ThisWorkbook.Save

End Sub

Answer 1

フィルタ中か否かの判定はFilterModeではなくAutoFilterModeのようですね。
そしてフィルタの解除メソッドはWorksheetではなくRangeに持っています。
よって書き換えると次のようになります。

If ActiveSheet.AutoFilterMode = True Then
    Selection.AutoFilter
End If

Comments

[nozomi0930]

無事解決いたしました！！
ありがとうございました^^