excel vba automatic calculation
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