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

    Dim sheet1 As Worksheet
        
    Set sheet1 = Worksheets(1)
    sheet1.Select
    
    Worksheets(2).Select Replace:=False
    
End Sub