Calc mode display on worksheet
 

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

Calc mode display on worksheet
 

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


--
Arvi Laanemets
( My real mail address: arvi.laanemets<attarkon.ee )


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

Calc mode display on worksheet
 

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

Regards,
Stefi


€žRobert€� ezt Ã*rta:

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

Calc mode display on worksheet
 

Arvi, Thank you very much. Exactly as I wanted
--
Robert


"Arvi Laanemets" wrote:

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


--
Arvi Laanemets
( My real mail address: arvi.laanemets<attarkon.ee )


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

Calc mode display on worksheet
 

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
--
Robert

Calc mode display on worksheet
 

Maybe also, placed in any cell: =INFO("recalc")
--
Rgds
Max
xl 97
---
Singapore, GMT+8
xdemechanik
http://savefile.com/projects/236895
--

Calc mode display on worksheet
 

Hi Max,

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

--
Kind regards,

Niek Otten

"Max" wrote in message
...
Maybe also, placed in any cell: =INFO("recalc")
--
Rgds
Max
xl 97
---
Singapore, GMT+8
xdemechanik
http://savefile.com/projects/236895
--

Calc mode display on worksheet
 

Why "maybe"? ...
Guess it's polite to use such words, Niek
Thanks for comments
--
Rgds
Max
xl 97
---
Singapore, GMT+8
xdemechanik
http://savefile.com/projects/236895
--