【VBA】特定の名前のシートを確認メッセージ無しで置換する方法

手作業で特定の名前のシートを他のシートと交換するのは時間がかかるだけでなく、ミスが発生しやすいです。この記事では、VBAを使って効率的にシートを置き換えつつ、確認メッセージが出ないように設定する方法を紹介します。

サンプルコード

VBA

Option Explicit
Sub ReplaceSheet()
    Dim ws As Worksheet, newWs As Worksheet
    Application.DisplayAlerts = False ' 確認メッセージを非表示にする
    Set ws = ThisWorkbook.Sheets("置換対象")
    Set newWs = ThisWorkbook.Sheets.Add(Before:=ws)
    newWs.Name = "新しいシート名"
    ws.Move After:=newWs
    Application.DisplayAlerts = True ' 確認メッセージを再表示する
End Sub

よくある質問

Q 元に戻せますか？

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

Q エラーが出たら？

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