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