'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