>>621
Application.ProcessMessages
を所々に入れてみるとか。