Using column A as example, here's one way

Sub test()
Dim c As Range

For Each c In ActiveSheet.Range("A:A")
If c.Value < 1000 Then
MsgBox "stopped at " & c.Address
Exit Sub
End If
Next c

End Sub


--
Hope that helps.

Vergel Adriano


"Beep Beep" wrote:

I need to write a macro that will look in one column (unit price) and if the
price is less than $1,000 or blank then stop, otherwise continue.