I keep getting an error when changing the
application.calculation property.

The code is as follows:
If Application.Calculation = xlCalculationAutomatic Then
Application.Calculation = xlCalculationManual
End If

I get a 1004 runtime error:

Method 'Calculation' of Object '_Application' failed.

It worked once, then it starts giving me the error.
Anyone have a clue what causes this?
Thanks