删除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放在前面才行.