Flipping calculation from Manual to Automatic

[WaynePaul]

I have an add-in from a third party vendor that I can not change and they will not change for me.
They in their infinite wisdom decided that their macro would flip the calculation to Manual.
I am looking for a way to create a macro that will recognize when their macro does this and flip calculation back to Automatic.

Thanks in advance

[tigeravatar]

WaynePaul,

This should work:

    If Application.Calculation = xlCalculationManual Then
        Application.Calculation = xlCalculationAutomatic
    End If

Hope that helps,
~tigeravatar

[nimrod]

Sub TurnOnCalcDemo()
    ' place a call to there program here
    Call SomeMacro
    
    ' not turn calc back on
    Application.Calculation = xlAutomatic
End Sub

[WaynePaul]

Thanks for the reply and pardon my ignorance but when and how does that code get triggered?

[nimrod]

Hello WaynePaul;
Who's code are you wanting further explaination of ?

[WaynePaul]

Hello Nimrod

Does the code get triggered when the calculation is changed to manual?