Отключение автоматического пересчета: Application.Calculation = xlCalculationManual