マクロの処理中に画面の更新や再計算が入ると処理が重くなったりするので、
画面の切り替わりを見る必要ないプロシージャにはこれを仕込むようにしてます
更新停止.vba
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
更新再開.vba
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic