剔除SHEET1时 禁止弹出确认框

删除SHEET1时 禁止弹出确认框
 
Sub 宏1()
Sheets("Sheet1").Select
    Application.CutCopyMode = False
    ActiveWindow.SelectedSheets.Delete
    Application.DisplayAlerts = False
End Sub
[解决办法]

Application.DisplayAlerts = False
Application.ScreenUpdating = False
[解决办法]
那兩行要放在
ActiveWindow.SelectedSheets.Delete
上方
[解决办法]
把宏代码的位置调整下
[解决办法]
删除的是sheet3
Application.DisplayAlerts = False
Worksheets("Sheet3").Delete
Application.DisplayAlerts = True
[解决办法]
把Application.DisplayAlerts = False放在前面才行.