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
|