Assume empty means it doesn't have a formula or a constant in it.

Dim rng as Range, rw as Range, cell as Range
On error resume next
set rng = Columns(15).SpecialCells(xlblanks)
ON Error goto 0
if not rng is nothing then
for each rw in rng
for each cell in Range(cells(rw.row,"C"),cells(rw.row,"M"))
if cell.Font.colorindex = 3 or cell.Font.ColorIndex = 5 then
msgbox "Check row " & cell.Row
exit sub
end if
next
Next
End if

This assumes the font color is not being produced by conditional formatting.

--
Regards,
Tom Ogilvy


"Gareth" wrote in message
...
I have a sheet with approx 15,000 rows of data.

I need a macro to check columns C:M to see if any of the cells have blue
or
red font in them and if column O is empty.

If this is the case I would like a simple message box saying "Please check
row ???"

Thanks in advance.

Gareth