Attribute VB_Name = "testsheet2"
Sub ƒeƒXƒg()

    Dim sheet1 As Worksheet
    
    Set sheet1 = Worksheets(2)
    sheet1.Activate
    
End Sub