Dim rng As Range
Set rng = Selection
If Application.Calculation = xlCalculationManual Then
 Application.Calculation = xlCalculationAutomatic
 rng.Calculate
 Application.Calculation = xlCalculationManual
Else
 rng.Calculate
End If