DoEvents入れる間隔を変えるべし。
for〜next処理をdo〜loop内に入れてして数千回回したら一回forを抜ける。
ここでDoEvents。

ってのはどう？