Hi moshe,

If you don't care about the semiautomatic/manual difference, Glen's code would be perfect. If the difference matters, you could do something like [vba]Sub caculatem()
Dim vCalc As String
Select Case Application.Calculation
Case xlCalculationAutomatic: Exit Sub
Case xlCalculationManual: vCalc = "manual"
Case xlCalculationSemiautomatic: vCalc = "automatic except for tables"
End Select
If MsgBox("Calculation currently is set to " & vCalc & ", change to fully " & _
"automatic?", vbYesNo + vbCritical, "Calculation state") = vbYes Then _
Application.Calculation = xlCalculationAutomatic
End Sub[/vba]Matt