Application VisualBasic Script

Sub cal()
    Application.Calculation = xlCalculationManual
End Sub