【Excel VBA】シートの名前を変更する

ActiveSheet.Name = "ユーキブログ"

ActiveWorkbook.Worksheets(1).Name = "変更1"
'シートの指定はシート名を指定することも可能です。
ActiveWorkbook.Worksheets("変更1").Name = "ユーキブログ"

Dim sh As Worksheet

Set sh = ActiveWorkbook.Worksheets(1)
sh.Name = "変更2"

ActiveWorkbook.Worksheets(1).Name = "変更1"
ActiveWorkbook.Worksheets(2).Name = "変更1"

Private Sub SheetNameChage()
On Error Resume Next

    ActiveWorkbook.Worksheets(1).Name = "変更1"
    '同じ名前になるので、この処理はスキップされる
    ActiveWorkbook.Worksheets(2).Name = "変更1"
    ActiveWorkbook.Worksheets(1).Name = "変更2"

End Sub

Private Sub SheetNameChage()
On Error GoTo ErrLabel

    ActiveWorkbook.Worksheets(1).Name = "変更1"
    '同じ名前になるので、エラーが発生
    ActiveWorkbook.Worksheets(2).Name = "変更1"
    'この処理は実行されない
    ActiveWorkbook.Worksheets(1).Name = "変更2"

    Exit Sub
    
ErrLabel:
    MsgBox "エラーが発生したので、処理を終了します"

End Sub

’ブックにシートが9までしかない場合、以下はエラーになる
ActiveWorkbook.Worksheets(10).Name = "変更1"
’存在しないシート名を指定しても、エラーになる
ActiveWorkbook.Worksheets("変更2").Name = "変更1"