Cells.Interior.ColorIndex = xlNone
set rng = Columns(3).Find("1234567")
if not rng is nothing then
rng.Select
rng.EntireRow.Interior.ColorIndex = 6
End if

--
Regards,
Tom Ogilvy


"EMoe" wrote in message
...

Good Morning Programmers,

I am looking for a code that will put a color (say yellow) in the
active cell, but also the next 2 to 3 cells to the right of the active
cell. Or maybe it possibe to highlight the entire row of an active
cell, that would be good also.

This is for a long phone number list, that I will use a Find box. Once
the box moves over the name that is found, highlight the entire row.
Wherever the active cell is located, highlight that row.

Thanks,
EMoe


--
EMoe
------------------------------------------------------------------------
EMoe's Profile:
http://www.excelforum.com/member.php...o&userid=23183
View this thread: http://www.excelforum.com/showthread...hreadid=483546