Excel VBA Force Recalculation
'VBA routine to force the workbook to recalculate:
Sub ForceCalc(Optional Full As Boolean)
With Application
.Calculation = xlCalculationManual
.Calculation = xlCalculationAutomatic
If Full Then .CalculateFull
End With
End Sub
Excel Hero