Toggles the calculation mode between manual and automatic and displays a message indicating the current mode: : Application « Application « VBA / Excel / Access / Word
Toggles the calculation mode between manual and automatic and displays a message indicating the current mode:
Sub ToggleCalcMode()
Select Case Application.Calculation
Case xlManual
Application.Calculation = xlCalculationAutomatic
MsgBox "Automatic Calculation Mode"
Case xlAutomatic
Application.Calculation = xlCalculationManual
MsgBox "Manual Calculation Mode"
End Select
End Sub