Sub LessThan1000orBlank()

Lastrow = Range(Rows.Count, "K").End(xlUp).Row

RowCount = 1
Do While RowCount <= Lastrow
If Cells(RowCount, "K") < 1000 Then
With Selection.Interior
.ColorIndex = 6
.Pattern = x1solid
End With

End If
RowCount = RowCount + 1

Loop
End Sub


"Beep Beep" wrote:

The below macro works ok, however it neither color's the cell and also I
would like the macro to continue on after finding one cell with less than
1,000 or blank. Currently it stops at the first cell it finds with this
criteria. There could be multiple cells that fall under this criteria.

Sub LessThan1000orBlank()

Range("K1").Select

Do Until ActiveCell < 1000
If ActiveCell < 1000 Then
With Selection.Interior
.ColorIndex = 6
.Pattern = x1solid
End With

End If
ActiveCell.Offset(1, 0).Select


Loop

End Sub