删除SHEET1时 禁止弹出确认框

Question

 
Sub 宏1()
Sheets("Sheet1").Select
    Application.CutCopyMode = False
    ActiveWindow.SelectedSheets.Delete
    Application.DisplayAlerts = False
End Sub

Answer 1

Application.DisplayAlerts = False
Application.ScreenUpdating = False

Answer 2

那兩行要放在
ActiveWindow.SelectedSheets.Delete
上方

Answer 3

删除的是sheet3
Application.DisplayAlerts = False
Worksheets("Sheet3").Delete
Application.DisplayAlerts = True

Answer 4

把Application.DisplayAlerts = False放在前面才行.