Убедитесь, что вы устанавливаете правильное значение.
Application.Calculation = xlCalculationManual
или одно из следующих значений:
xlCalculationAutomatic: Excel контролирует пересчет.
xlCalculationManual: расчет выполняется по запросу пользователя.
xlCalculationSemiautomatic: Excel контролирует пересчет, но игнорирует изменения в таблицах.