Turn Off Auto Cal:
Application.Calculation = xlCalculationManual
Turn On Auto Cal:
Application.Calculation = xlCalculationAutomatic
autocal
Turn Off Auto Cal:
Application.Calculation = xlCalculationManual
Turn On Auto Cal:
Application.Calculation = xlCalculationAutomatic
autocal