Calc mode display on worksheet

[Guest]

Is there anyway to display on the worksheet itself of the Calculation mode ie
automatic or manual.
Thank you
Robert

 

[Arvi Laanemets]

Hi

This UDF does it - save it into any workbook module, and then use the
formula <=CALCMODE(NOW())> in any cell:

Public Function CalcMode(Optional parTime As Date) As String
Select Case True
Case Application.Calculation = xlCalculationAutomatic
CalcMode = "Automatic"
Case Application.Calculation = xlCalculationManual
CalcMode = "Manual"
Case Application.Calculation = xlCalculationSemiautomatic
CalcMode = "Semiautomatic"
End Select
End Function

 

[Guest]

Try this UDF:
Function calcmod()
kalkmod = IIf(Application.Calculation = xlAutomatic, "AUT", "MAN")
End Function

Regards,
Stefi


„Robert†ezt írta:

 

[Guest]

Arvi, Thank you very much. Exactly as I wanted

 

[Guest]

I am sure Stefi was right but I could not get it to work. Even getting Arvi's
to work was difficult, I did not know how to set up a UDF. Finally made it
with Arvis).
Thank you Stefi

 

[Max]

Maybe also, placed in any cell: =INFO("recalc")

 

[Niek Otten]

Hi Max,

Why "maybe"? This is certainly a correct and simple solution

 

[Max]

Why "maybe"? ...
Guess it's polite to use such words, Niek
Thanks for comments