Attribute VB_Name = "testsheet1"
Sub テスト()

    Dim sheet1 As Worksheet
    
    Set sheet1 = Worksheets(2)
    sheet1.Range("A1").Value = "Test"
            
    Worksheets("Sheet3").name = "シート3"

End Sub