Application.DisplayAlerts = False

在程序执行过程中使出现的警告框不显示

example:

…………
Application.DisplayAlerts = False
Sheet1.Delete
Application.DisplayAlerts = True
…………