Change text color

[Mike Fogleman]

Hi, I have two columns of data B & K with same number of rows. Column K
values are the result of a cell formula. I want to change the text color of
B5 to red if it is less than K5. I have a variable named RowCount available
with the number of rows that are in the columns if that can be of any use.

TIA Mike

[Tom Ogilvy]

You can do this with conditional formatting - no code needed

Format=>Conditional formatting

--
Regards,
Tom Ogilvy

Mike Fogleman <mikefo...@insightbb.com> wrote in message
news:ehOkiuU3...@TK2MSFTNGP11.phx.gbl...

[Mike Fogleman]

Tom, I have fooled around with that, but I forgot to mention that Column K
will be deleted afterwards and I want the appropriate numbers in B to remain
Red. I could not get that to happen with Conditional Formatting.
I think I need a loop.
Mike
"Tom Ogilvy" <twog...@msn.com> wrote in message
news:100jfs3...@news.supernews.com...

[Tom Ogilvy]

Dim rng as Range, cell as Range
set rng = Range(cells(1,2),cells(rows.count,2).end(xlup))
for each cell in rng
if cell.Value < cell.offset(0,9).Value then
cell.font.ColorIndex = 3
else
cell.font.ColorIndex = xlautomatic
end if
Next

--
Regards,
Tom Ogilvy

Mike Fogleman <mikefo...@insightbb.com> wrote in message

news:OVJINAV3...@TK2MSFTNGP11.phx.gbl...

[Mike Fogleman]

That worked! I was having trouble with set rng=.

"Tom Ogilvy" <twog...@msn.com> wrote in message

news:100jjaj...@news.supernews.com...