Calc mode display on worksheet

R

Robert

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

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
 
S

Stefi

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

Regards,
Stefi


„Robert†ezt írta:
 
R

Robert

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
 
Top