VBA関数
DoEvents関数

DoEvents

開かれているフォームの数を返します。
開かれているフォームが無ければ0返します。
DoEvents関数は、オペレーティング システムに制御を渡します。
オペレーティング システムがキュー (処理の待ち行列) に入っているイベントの処理を終了し、SendKeys ステートメントのキューに入っているすべてのキー入力が送られるまで制御は戻りません。
DoEvents関数は、ファイルの検索などで処理が開始された後で、ユーザーがキャンセルできるようにするときに役立ちます。
処理の実行が長い場合、処理プログラムで行う方が、タイマーを使ったり、ActiveX コンポーネントにタスクを渡すよりよい方法です。
後の場合、アプリケーションから独立させてタスクを続行できます。
そしてオペレーティング システムでは、マルチタスクと時間分割を利用します。

イベント プロシージャから一時的な処理が発生するときは、最初に呼び出した処理から制御が戻ってくるまでは、プロシージャがプログラムの別の場所で実行されることがないように注意する必要があります。
別の場所で実行された場合、結果は予測できません。
また、制御をオペレーティング システムに渡している間、他のアプリケーションが、確認できない方法でプロシージャとやり取りを行う可能性があるときは、DoEvents 関数は使わないでください。

DoEventsをむやみににCallすると処理がとても遅くなります。
一旦制御をOSに渡すので、当然それなりの時間がかかります。
以下の使用例で確認してください。

ステータスバーへの表示をする場合は、
このようにDoEventsを入れる事で、表示がスムーズに行われます。
VBA100本ノック 70本目：ステータスバーに1秒ごとに時刻が表示 ストップウォッチ（1/100秒）（Timer）

VBAで正しいはずなのに上手く処理されない、正しく表示されない・・・
そんな時にDoEventsは必須になります。
ただし、むやみにDoEventsを実行すると非常に時間がかかってしまいます。

この処理は10秒程度で終わります。
しかし、

この処理は40秒くらいかかってしまいます。
OS側で処理すべきイベントが無い場合にはDoEventsを実行する必要がありません。
これを判定するAPIがあります。
GetInputState
このAPIを使うことで無用なDoEventsを減らすことができます。

これなら手元で11~12秒くらいでしょうか。
実際にはAPIを使うことを考える前に、そもそも無用なDoEventsは減らすようにした方が良いでしょう。
10000のカウントを1ずつ見ても仕方ないですし、実際に目視で1カウントは見ることができませんので、本来なら10回や100回に1回のDoEventsで良いはずです。