【VBA】非表示シートを確認メッセージを出さずに置換する方法

日々の業務で大量のデータを扱う際、特定のシートを非表示にして管理している方も多いでしょう。しかし、そのようなシートを別のシートと交換する際に毎回確認メッセージが出力されると煩わしい思いをするかもしれません。この記事では、VBAを使用して非表示のシートを別のシートに置き換えつつ、確認メッセージを出さない方法を紹介します。

サンプルコード

VBA

Option Explicit
Sub ReplaceSheetWithoutAlert()
    Dim ws As Worksheet, targetWs As Worksheet
    Application.DisplayAlerts = False ' 確認メッセージの非表示
    Set ws = ThisWorkbook.Sheets("Sheet1")
    Set targetWs = ThisWorkbook.Sheets("TargetSheet")
    ws.Move Before:=targetWs
    Application.DisplayAlerts = True ' 確認メッセージを元に戻す
End Sub

よくある質問

Q 元に戻せますか？

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

Q エラーが出たら？

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