删除WorkSheet时不提示对话框 WorkSheet.Delete

在使用这个语句时会出现一个对话让用户来确认,
我们可用使用以下方法来避免这种情况
第一
Application.SendKeys ("{ENTER}")
ActiveSheet.Delete
第二
Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True