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