Excel シート削除時のメッセージボックス

質問

Excel シート削除マクロを作っていますが、そのなかで
「選択したシートを削除します。一度削除すると元に戻すことはできません。」
というメッセージボックスを出さないようにしたいのですが、どうしたらよいですか。
教えて下さい。よろしくお願いします。

回答No.1

pauNed

こんにちは。
DisplayAlerts プロパティについて調べてみましょう。
以下、ActiveWorkbookの最左のシートを削除するサンプルです。

　　With ActiveWorkbook
　　　　Application.DisplayAlerts = False
　　　　If .Sheets.Count > 1 Then .Sheets(1).Delete
　　　　Application.DisplayAlerts = True
　　End With

他に、例えばシート名を指定して削除したりする時に、
目的のシートが無かった場合はエラーが発生します。
その対策もして、最後はDisplayAlerts = Trueになるようにしておいたほうが良いと思います。

　　With ActiveWorkbook
　　　　Application.DisplayAlerts = False
　　　　On Error GoTo errLine
　　　　If .Sheets.Count > 1 Then .Sheets("a").Delete
　　End With
　　：

errLine:
　　Application.DisplayAlerts = True

お礼

pauNedさん　ありがとうございました。