Sub シート名を変更する() ActiveSheet.Name = "新シート名" End Sub
Sub シート名を変更する_シート名指定() Worksheets("Sheet1").Name = "シート名" End Sub