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

    Dim sheet1 As Worksheet
    
    Worksheets(2).Activate
    
    Set sheet1 = ActiveSheet
    sheet1.Range("A2").Value = "Active"

End Sub