Auto Calculation Toolbar Button

[Richie(UK)]

Another one to consider ...

Sub CalcMode()
    Static iCalcMode As Integer
    Dim iMode As Integer, strText As String
iCalcMode = iCalcMode Mod 3 + 1
    'cycle through the references
Select Case iCalcMode
    Case 1: iMode = xlCalculationAutomatic: strText = "Auto"
    Case 2: iMode = xlCalculationManual: strText = "Manual"
    Case 3: iMode = xlCalculationSemiautomatic: strText = "Semi-auto"
    End Select
    'determine mode to apply
Application.Calculation = iMode
    MsgBox strText
    'or whatever indicator you want
End Sub