ShowAllDataのエラーを回避したい

ＥＸＣＥＬでオートフィルタを使った後に、データを全て表示させる為のコマンドボタンを作りました。
問題なのは、フィルタがかかっている状態でこのボタンを押すとデータが全表示されるのですが、全表示されている状態で押すと以下のエラーになってしまいます。

　　実行時エラー'1004':
　　WorkSheetクラスのShowAllDataメソッドが失敗しました。

コマンドボタンのプログラムは以下のとおりです。

　　Private Sub CommandButton2_Click()
　　ActiveSheet.ShowAllData
　　End Sub

不勉強なのは承知ですが、回避方法を教えて頂けないでしょうか。

No.1 ベストアンサー 回答者： masa_019 回答日時： 2005/09/01 21:49

FilterMode プロパティが True　のときに

ShowAllData メソッドを発行すればよいのでは？
　
非表示になっている行があれば全行表示する。

Private Sub CommandButton1_Click()
If ActiveSheet.FilterMode Then _
ActiveSheet.ShowAllData
End Sub

この回答へのお礼

うまくいきました！ありがとうございました。

お礼日時：2005/09/03 09:44