Mega Code Archive

 

Categories / VisualBasic Script / Application

 

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