macro to refresh worksheet until cell meets a value

[Legacy 505880]

hello everybody. I'm looking for a macro that updates a sheet until a certain cell meets a value. The cell in question depends on many random parameters so it can become lengthy to manually refresh pressing f9 hundreds of times until it meets a value (let's say for example that this value is 1). The cell (let's say, for example, A1) in question is located in a specific sheet, so the macro should be only looking in the cell of that sheet, rather than all of them. Thank you in advance.

 

[Anthony47]

For example

Sub TryNTry()
Dim myTim As Single
'
myTim = Timer
Do
    Calculate
    DoEvents
    If Sheets("ThatSheet").Range("A1").Value = 1 Then Exit Do
    'If Timer > (myTim + 3600) Then Exit Do
Loop
MsgBox ("Got it?")
End Sub

If you prefer setting a timeout of 1 hour then remove the apostrophe in fron of the line If Timer etc etc

 

[Legacy 505880]

Thank you, this works perfectly

 

[Anthony47]

Thank you for the feedback
If that resolve the problem then it'd be better to mark the discussion as Resoved; see the procedure: Mark as Solution