Application

'警告メッセージの停止
Application.DisplayAlerts = False

Application.DisplayAlerts = True

'1秒間処理を中断する
Application.Wait Now + TimeValue("00:00:1")

Application.ScreenUpdating = False
Application.ScreenUpdating = True