Application.Calculation = xlCalculationManual はとりあえず書いとくでしょ