【VBA】特定の名前のシートを確認メッセージを出さずに削除する方法

日々の業務の中で、特定の名前のワークシートを頻繁に削除する必要がある場合、毎回出る確認メッセージは煩わしいですよね。この記事では、そのような状況で役立つVBAマクロを作成し、効率的な業務遂行をお手伝いします。

サンプルコード

VBA

Option Explicit
Sub DeleteSpecificSheet()
    Dim ws As Worksheet
    Application.DisplayAlerts = False '確認メッセージを出さない設定
    On Error Resume Next 'エラー無視モードに移行
    Set ws = ThisWorkbook.Sheets("削除したいシート名")
    If Not ws Is Nothing Then ws.Delete '指定のワークシートが存在する場合のみ削除
    Application.DisplayAlerts = True '確認メッセージを再有効化
End Sub

よくある質問

Q 元に戻せますか？

VBAの実行結果は「元に戻す」が効きません。必ずバックアップを取ってから実行してください。

Q エラーが出たら？

シート名や列番号が正しいか確認してください。