Execute the next statement to set the calculation mode to automatic:
Sub calcu() Application.Calculation = xlCalculationAutomatic End Sub