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