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