■Excel VBAで任意の時間、処理を止める方法 Sleep関数を使う為に下記を最初に宣言
Private Declare Sub Sleep Lib "kernel32" (ByVal ms As Long)