Attribute VB_Name = "testsheetedit5" Sub ƒeƒXƒg() Application.DisplayAlerts = False Worksheets(2).Delete Application.DisplayAlerts = True End Sub