シート名の変更

広告

ワークシートの名前を変更します。Worksheetオブジェクトの「Name」プロパティで設定します。 

Dim sheet1 As Worksheet

Set sheet1 = Worksheets(1)
sheet1.Name = "新しいシート名"

シート名は31文字以内で設定します。次の文字は使えませんので注意して下さい。コロン(:)、円(¥)、スラッシュ(/)、疑問符(?)、アスタリスク(*)、左角括弧(「)、右角括弧(」)。これらは半角全角に関わらず使用できません。また空白のシート名も設定できません。

サンプルプログラム

では簡単なサンプルで試してみましょう。

testsheetope5.bas 

Sub テスト()
    
    Dim sheet1 As Worksheet
    
    Set sheet1 = Worksheets("Sheet1")
    sheet1.name = "新しいシート名"
    
End Sub

上記マクロを実行すると次のようになります。

シート名の変更

( Written by Tatsuo Ikura )