calculation status in msgbox

[sadath]

Is there any way to show the user the calculation status in a message box while opeining a perticular wkb.

like "Calculation is Manual"
or
"Calulation is automatic except table"

thanks

 

[macleanb]

well at the basic level:

msgbox application.calculation


will give you a rather cryptic indication - you just need to build an if statement to give these values english text names

 

[R_Stephens]

Hi there,

Enter the following code into the 'ThisWorkbook' section of code for your workbook

Private Sub Workbook_Open()
If Application.Calculation = xlCalculationAutomatic Then
    msg = MsgBox("Calculation is Automatic")
ElseIf Application.Calculation = xlCalculationManual Then
    msg = MsgBox("Calculation is Manual")
ElseIf Application.Calculation = xlCalculationSemiautomatic Then
    msg = MsgBox("Calculation is Automatic except Tables")
End If
End Sub

Hope this helps

Richard