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