Display Alerts Property of Application Object
Sub DisplayAlertsPropertyOf_Application_Object()
Application.DisplayAlerts = False
Dim Wkb As Workbook
Set Wkb = ActiveWorkbook
Wkb.Sheets("Sheet4").Delete
Application.DisplayAlerts = True
End Sub