VBA・マクロの先頭付近に次の3行を追加する :
Application.ScreenUpdating = False Application.EnableEvents = False Application.Calculation = xlCalculationManual
VBA・マクロの最後付近に次の3行を追加する :
Application.ScreenUpdating = True Application.EnableEvents = True Application.Calculation = xlCalculationAutomatic
ネタ元