Loop Until

[FootBallBat]

Sub Test()


Application.Wait Now + (TimeValue("00:00:03") / 2)
Range("A1").Value = Range("A1") - Range("C1")


End Sub

What I am looking for is how I can Loop this until Cell"A1" is equal to Cell"B1"

 

[lrobbo314]

Sub Test()


Do Until Range("A1").Value = Range("B1").Value
    Application.Wait Now + (TimeValue("00:00:03") / 2)
    Range("A1").Value = Range("A1").Value - Range("C1").Value
Loop


End Sub

 

[FootBallBat]

Sub Test()


Do Until Range("A1").Value = Range("B1").Value
    Application.Wait Now + (TimeValue("00:00:03") / 2)
    Range("A1").Value = Range("A1").Value - Range("C1").Value
Loop


End Sub

Thank you

 

[lrobbo314]

No problemo.