Sub MyMacro( ) Application.DisplayAlerts = False ActiveSheet.Delete Application.DisplayAlerts = True End Sub