Cálculo automático do Excel VBA

Sub CalculationMode()
    ' To manual
    Application.Calculation = xlManual
    ' One shot Recalculation (one worksheet), keeps Calculation mode to manual
    ThisWorkbook.Worksheets(1).Calculate
    ' To automatic
    Application.Calculation = xlAutomatic
End Sub
VasteMonde