エラーメッセージを変更できますか？

質問

エクセルで在庫表の管理をしています。

ユーザーフォームで「抽出」ボタンと「すべて表示」ボタンを作成しましたが
既に”すべて表示”されている状態で「すべて表示」を実行すると
「実行時エラー'1004'」が表示されます（当然ですが・・・）

このエラーメッセージを自作のメッセージボックスに変えたいのですが可能でしょうか？

[すべて表示]
Private Sub 抽出Buttonすべて_Click()
ActiveSheet.ShowAllData
End Sub

[エラーになった場合変更したいメッセージ]
Sub 表示エラー()
MsgBox "すべて表示されています", vbOKOnly
End Sub

エラーメッセージの[終了]を、メッセージボックスの[ＯＫ]にしたいのですが。。。

回答No.1

merlionXX · ベストアンサー

Private Sub 抽出Buttonすべて_Click()
On Error GoTo MSG
ActiveSheet.ShowAllData
Exit Sub
MSG:
MsgBox "すべて表示されています。", vbOKOnly + vbCritical, "Σ（￣ロ￣lll) "
End Sub

かな。

お礼

早速ありがとうございます！

できました！！
感謝！感謝！！です！