"Gary''s Student" wrote in message
...
How about:

Sub Macro1()
For i = 1 To 37
j = Sheets("Sheet3").Range("A1").Value
If j = 1 Then
Exit For
Else
Application.Calculate
End If
Next
End Sub

--
Gary's Student


thanks, that looks great, I just wasn't sure what the syntax was though I
guessed the approximate format!