Here is an example that uses click to set the calculation mode to manual,
shift-click to automatic, and changes the tooltiptext to show whixh mode it
is in.
Sub SetCalculateMode() 'Shifted is automatic, unshifted is manual
Dim sMode As String
Dim nState As Long
If GetKeyState(vkShift) < 0 Then
Application.Calculation = xlAutomatic
sMode = "Automatic"
nState = msoButtonDown
Else
Application.Calculation = xlManual
sMode = "Manual"
nState = msoButtonUp
End If
With Application.CommandBars.ActionControl
.TooltipText = "Calculation mode is " & sMode
.State = nState
End With
End Sub
--
HTH
Bob Phillips
(replace somewhere in email address with gmail if mailing direct)