Faster iterative calculation of a worksheet with circular references

Sub fastcalc()

  'disable screen updating:
  Application.ScreenUpdating = False

  For i = 1 To 100
    Selection.Calculate 'recalculate only the selected range
  Next i

  'enable screen updating:
  Application.ScreenUpdating = True

End Sub