アドバイスありがとうございます。
Application.ScreenUpdating=Falseはいれています。

やはり仕方無いのですかね?
PCの性能面でも良くないのかも知れません。
メモリーリークのような事が起こっているのでしょうかね?