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

One way:

Do Until Range("A1").Value = 0
ActiveSheet.Calculate
Loop

Note that this is a dangerous piece of code since nothing internal to
the loop changes A1.

Also, rounding errors can sometimes make even proper loops fail. Better
might be:

Const epsilon As double = 1E-10
Do Until Abs(Range("A1").Value < epsilon
ActiveSheet.Calculate
Loop

In article ,
"Peter" wrote:

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

You could use Goalseek or Solver unless A1 contains a function like a
countdown or something?

--
Rob van Gelder - http://www.vangelder.co.nz/excel


"Peter" wrote in 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

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


.