Application.Calculation = xlCalculationManual fails

Hello,

I've got a VBA macro that does the following:

Application.Calculation = xlCalculationManual
If (Application.Calculation <> xlCalculationManual) Then
MsgBox("Doesn't work!")
End If

The macro is triggered on a Worksheet_Change() event. Most of the tim time
it works, but in some cases it does not work. Does anyone know of any
situations when this property becomes read-only?

Thanks!

After doing some additional digging, it looks like the property becomes
read-only when you are pasting values into a worksheet (which triggers the
event, which triggers the macro). Why does this happen? Are there other
situations where this occurs?

"AM" wrote:
> Hello,
>
> I've got a VBA macro that does the following:
>
> Application.Calculation = xlCalculationManual
> If (Application.Calculation <> xlCalculationManual) Then
> MsgBox("Doesn't work!")
> End If
>
> The macro is triggered on a Worksheet_Change() event. Most of the tim time
> it works, but in some cases it does not work. Does anyone know of any
> situations when this property becomes read-only?
>
> Thanks!