Toggle AutoCalc
 

The following simple routines turn off/on Auto Calc
Sub AutoCalcOff()
With Application
.Calculation = xlManual
.MaxChange = 0.001
End With
ActiveWorkbook.PrecisionAsDisplayed = False
End Sub

Sub AutoCalcOn()
With Application
.Calculation = xlAutomatic
.MaxChange = 0.001
End With
ActiveWorkbook.PrecisionAsDisplayed = False
End Sub

How can I combine the 2 and toggle between on and off with a shortcut
key...Unless of course this is built into Excel already. I know If I switch
to manual that F9 will recalc but I want to be able to turn off and on via
shortcut key. And a recalc when It is turned on would be nice too :-)
Thanks!

Toggle AutoCalc
 

One way:

Assign this to your shortcut key:

Public Sub ToggleCalc()
ActiveWorkbook.PrecisionAsDisplayed = False
With Application
If .Calculation = xlCalculationManual Then
.Calculation = xlCalculationAutomatic
Else
.Calculation = xlCalculationManual
.MaxChange = 0.001
End If
End With
End Sub

Setting Calculation to automatic will automatically recalc.

In article ,
"Sandy" wrote:

The following simple routines turn off/on Auto Calc
Sub AutoCalcOff()
With Application
.Calculation = xlManual
.MaxChange = 0.001
End With
ActiveWorkbook.PrecisionAsDisplayed = False
End Sub

Sub AutoCalcOn()
With Application
.Calculation = xlAutomatic
.MaxChange = 0.001
End With
ActiveWorkbook.PrecisionAsDisplayed = False
End Sub

How can I combine the 2 and toggle between on and off with a shortcut
key...Unless of course this is built into Excel already. I know If I switch
to manual that F9 will recalc but I want to be able to turn off and on via
shortcut key. And a recalc when It is turned on would be nice too :-)
Thanks!

Toggle AutoCalc
 

Thank you!

"JE McGimpsey" wrote:

One way:

Assign this to your shortcut key:

Public Sub ToggleCalc()
ActiveWorkbook.PrecisionAsDisplayed = False
With Application
If .Calculation = xlCalculationManual Then
.Calculation = xlCalculationAutomatic
Else
.Calculation = xlCalculationManual
.MaxChange = 0.001
End If
End With
End Sub

Setting Calculation to automatic will automatically recalc.

In article ,
"Sandy" wrote:

The following simple routines turn off/on Auto Calc
Sub AutoCalcOff()
With Application
.Calculation = xlManual
.MaxChange = 0.001
End With
ActiveWorkbook.PrecisionAsDisplayed = False
End Sub

Sub AutoCalcOn()
With Application
.Calculation = xlAutomatic
.MaxChange = 0.001
End With
ActiveWorkbook.PrecisionAsDisplayed = False
End Sub

How can I combine the 2 and toggle between on and off with a shortcut
key...Unless of course this is built into Excel already. I know If I switch
to manual that F9 will recalc but I want to be able to turn off and on via
shortcut key. And a recalc when It is turned on would be nice too :-)
Thanks!