エクセルのオートフィルターがかかっていたら消すVBA

いつもお世話になっております。
作業が終了して全てのシートを初期化する場合に、オートフィルターで抽出した状態でデータを消すと、隠れていた部分が残ってしまいます。
もし、そのシートのA1～D1までにフィルターがかかっていたら、フィルターを消す、かかっていなければ、そのままシート全体のデータを消すというマクロはどう書けばよろしいのでしょうか？
-例-
Sheets("ABC").Select
If Range(Cells(1,1),Cells(1,4))にフィルターがかかっていたらThen
　フィルターを消す
　Cells.ClearContents
Else
Cells.ClearContents
End If

こんなことをしたいのですが、伝わりましたでしょうか？
よろしくご指南くださいませ。

No.1 ベストアンサー 回答者： xls88 回答日時： 2009/01/11 02:14

こういうことでしょうか？

ActiveSheet.AutoFilterMode = False

この回答へのお礼

xls88さん、
早速のご回答ありがとうございました。
おはずかしい。。。そういうことです。
なぜ気がつかなかったんだろう。。。
また機会がありましたらよろしくお願いいたします。

お礼日時：2009/01/11 02:39