I decided I needed a button in my menu bar to turn calculations to manual or auto. As I am now using Excel 2007 the process to get to the Option dialogue is a little long winded.

So my code looks like this;

Sub CalcChangeStatus()
Cells(1, 1).Select
If Application.Calculation = xlManual Then
Application.Calculation = xlCalculationAutomatic
Else
Application.Calculation = xlManual
End If
End Sub


Add a button to a menu bar and link to this macro. The button will then toggle the calculation status from Auto to manual.