This routine will do:

Sub whatUneed()
Application.Calculation=xlCalculationManual
while cells(1,1)
Application.Calculate
Wend
End Sub


-----Original Message-----
Can anyone help with a piece of Code that will recalc
the sheet until a
certain cell contains a certain value e.g.:-
A1 = 0

TIA
Peter


.