>>223
Application.ScreenUpdating = False

でOFFにできて、Trueを渡すとそれまでやった処理の画面更新が一気に走る
これで速度は十倍になる