【Excel VBA】ワークシートの名前を変更する方法と命名規則の注意点

2025年8月13日

VBAで新しいシートを追加したり、既存のシートをコピーしたりすると、「Sheet1」や「データ (2)」のような仮の名前が付けられます。マクロの処理の一環として、これらのシートに「〇月度レポート」のような分かりやすい名前を自動で設定したい場面は非常に多いです。

この記事では、VBAでワークシートの.Nameプロパティを使い、シート名を変更する基本的な方法と、エラーを避けるために知っておくべき命名規則について解説します。

完成したVBAコード

シート名を変更するには、対象となるシートを指定して、その.Nameプロパティに新しい名前を代入します。対象シートの指定方法にはいくつかありますが、ここでは代表的な3つの方法を紹介します。

① シート名で指定する方法（基本）

現在表示されているシート名を基準に、新しい名前に変更します。

Sub RenameSheet_ByName()
    ' 「Sheet1」という名前のシートを「月次レポート」に変更
    ThisWorkbook.Worksheets("Sheet1").Name = "月次レポート"
    MsgBox "シート名を変更しました。"
End Sub

② インデックス番号で指定する方法

左からのタブの順番（インデックス番号）でシートを指定します。

Sub RenameSheet_ByIndex()
    ' 1番左にあるシートを「集計結果」に変更
    ThisWorkbook.Worksheets(1).Name = "集計結果"
    MsgBox "シート名を変更しました。"
End Sub

注意: この方法は、ユーザーがシートの順番を入れ替えると対象がズレるため、あまり推奨されません。

③ コードネームで指定する方法（推奨）

VBE（VBAの編集画面）のプロジェクトエクスプローラーで確認できる「コードネーム」でシートを指定します。これは、ユーザーがシート名を変更しても変わらない内部的な名前のため、最も安全で確実な方法です。

' VBEでコードネームが「Sheet1」であることを確認した場合
Sub RenameSheet_ByCodeName()
    ' コードネーム「Sheet1」のシート名を「マスターデータ」に変更
    Sheet1.Name = "マスターデータ"
    MsgBox "シート名を変更しました。"
End Sub