フィルタを解除してA1セルを選択＜マクロ＞

質問

EXCEL2002を使用しています。
以下のようなマクロで、フィルタを解除してA1のセルを選択するようにしたいと思いました。

Sub Macro1()
ActiveSheet.ShowAllData
Range("A1").Select
End Sub

フィルタがかかっている状態で実行すれば問題ないのですが、かかっていない状態で実行するとエラーになっていまいます。
フィルタがかかっていない状態の場合は単にA1を選択するようにしたいのですが、どのようにしたらよいでしょうか？
よろしくお願いします。

回答No.2

akey · ベストアンサー

＃１です。すいません。まちがっていました。

Sub Macro1()
On Error GoTo Errhand
ActiveSheet.ShowAllData
Range("A1").Select
Exit Sub
Errhand:
Range("A1").Select
End Sub

お礼

早速試させていただきました。希望通りの動作をしてくれました。

本当にありがとうございました。もっとマクロを勉強したいと思います。

回答No.1

akey

単純にエラー処理を追加するだけではだめですか？

Sub Macro1()
On Error GoTo Errhand
ActiveSheet.ShowAllData
Range("A1").Select
Errhand:
Range("A1").Select
End Sub