Originally Posted by jack_n_bub

Hi,

Try this.

Sub CheckForsomething()
Range("D1").Activate
Do While ActiveCell.Value < ""
If ActiveCell.Value = True Then Call Macrotest
ActiveCell.Offset(1, 0).Activate
Loop
End Sub

This code will start from Range D1 and will keep looking in column D until there is either an empty cell or the value of the cell is True.

If the value of cell is true this will call your procedure (macrotest).

Instead of calling the macro you may like to substitute your code in my procedure. Either ways, your purpose should be complete.

Let me know if it helps.

Thanks,
Prashant