ワークシートの名前の変更にはNameプロパティを使用します。
ActiveSheet.Name="シート名"
'ワークシートの名前の変更 Sub ChangeSheetName() ActiveSheet.Name="TEST" End Sub 'シート"Sheet1"の名前を"TEST"にする Sub ChangeSheetName() Worksheets("Sheet1").Name="TEST" End Sub