【VBA】特定の名前のシートを完全一致で置換する方法

手作業では時間がかかるシートの置換作業、それを一瞬で解決できるVBAマクロを作成しました。特定の名前のシートを完全一致で置換し、業務効率化に役立てましょう。

サンプルコード

VBA

Option Explicit
Sub ReplaceSheetByName()
    Dim ws As Worksheet, newWsName As String
    Application.ScreenUpdating = False '画面更新を停止
    Set ws = ThisWorkbook.Sheets("古いシート名")
    If Not ws Is Nothing Then
        newWsName = "新しいシート名"
        ws.Name = newWsName
    End If
    Application.ScreenUpdating = True '画面更新を再開
End Sub

よくある質問

Q 元に戻せますか？

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

Q エラーが出たら？

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