Auto Calculation Toolbar Button

[HalfAce]

Hi,
Don't know if you need help creating the toolbar button or not, but for the code you can use:

Sub ToggleAutoManualCalc()
With Application
    If Not .Calculation = xlManual Then .Calculation = xlManual 
    Else: .Calculation = xlAutomatic
    End With
End Sub

This any help?
Dan