Excel VBAでのwait

方法１：
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
For k = 0 To 10
DoEvents
Sleep 100
Next k

方法２：
t0 = Timer + 1
While Timer < t0
DoEvents
Wend

方法は他にもあるだろう。方法１はExcel自体のカーソル移動が重くなるが、タスクマネージャで見るシステム全体への負荷は軽い。方法２はその逆。