Application VisualBasic Script

Sub calcu()
    Application.Calculation = xlCalculationAutomatic
End Sub