Excel VBA 全てのsheetを対象にオートフィルターを一気に解除したい

1つのbook.xlsに対して複数のsheetがあり、
仮）１　２　３ … 40個ぐらいのsheetがあるとします。

▲条件
１sheetはオートフィルター機能を使用しているが…、２sheetは使用していない、規則性や順番などはなくオートフィルターを使用しているsheet、使用していないsheetがランダムに並んで混在しています。

▲処理したい内容
で、行いたい処理は全てのsheetを対象にオートフィルターを一気にVBAで解除したい。可能でしょうか？　アドバイスよろしくお願い致します。

No.1 ベストアンサー 回答者： kumadayo 回答日時： 2004/11/27 04:15

Dim x As Worksheet

For Each x In ThisWorkbook.Sheets
If x.AutoFilterMode = True Then
x.Cells.AutoFilter
End If
Next
これでどうですか＾－＾？

この回答へのお礼

お礼送れてすいません(^_^;
おおっ素晴らしい！　思い通りの結果が得られました。
アドバイスありがとうごさいましたm(_ _)m

お礼日時：2004/11/30 01:17