Attribute VB_Name = "testsheetope5"
Sub テスト()
    
    Dim sheet1 As Worksheet
    
    Set sheet1 = Worksheets("Sheet1")
    sheet1.name = "新しいシート名"
    
End Sub