Language Basics VisualBasic Script

Sub CalcManual()
    Application.Calculation = xlCalculationManual
    MsgBox xlCalculationAutomatic
End Sub