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

    Worksheets(2).Delete

End Sub