Your code isn't actually changing cell A2. all it is doing is recalculating
the sheet. Is this what you wanted to do? Is there something else that is
changing A2?
--
JNW


"Jo" wrote:

I have this macro's code:

Dim SCell As Integer
Do Until SCell.Value = 1
If SCell.Value < 1 Then

Range("J24").Select
Calculate
End If
Loop

Where SCell has a formula like this: "if (A2<A3,1,0)" and A2 has a
random number while A3 is a fixed value. I want the macro once clicked
to keep changing A2 till SCell formula is 1. So the loop could run 5
times or 500 times.

Is there something wrong in the code above?

Thanks,
Jo