TESTED
Sub colorem()
Range("a2:x234").Cells.Interior.ColorIndex = 0
For Each c In Range("a2:x234")
If c < "" And c < 20 Then c.Interior.ColorIndex = 3
Next
End Sub
--
Don Guillett
SalesAid Software

"Don Guillett" wrote in message
...
something like this

for each c in selection 'or range("a2:x234")
if c<20 then c.interior.colorindex=34 'change number to suit
next

--
Don Guillett
SalesAid Software

"Kura of Tyren" wrote in message
...
Does anyone know how I can make a macro that will search
all cells within a preset range and change the font color
of all cells with a value of less than 20 to red while
leaving all other cells in the region with their normal
color?