repeat code

[smokenack]

I want the code below to repeat itself until the IF criterion isn't satisfied. So if after running the code Cells(2, 7).Value + 7 is still less than Cells(2, 5) I want the code to run again.

Sub find()
If Cells(2, 7).Value + 7 < Cells(2, 5) Then rest of code here

If this is unclear I'm sorry I'ts one o'clock in the morning.

thanks for looking

Nick

 

[Peter_SSs]

Like this?

<font face=Courier New><SPAN style="color:#00007F">Do</SPAN> <SPAN style="color:#00007F">While</SPAN> Cells(2, 7).Value + 7 < Cells(2, 5).Value<br> <SPAN style="color:#007F00">' rest of code</SPAN><br><SPAN style="color:#00007F">Loop</SPAN></FONT>

 

[smokenack]

Exactly like that, thank you very much Peter.