I need to figure out a way to color code a cell off a selection find. Here
is what I currently have:

Range("O1,O12,O34").Select
If Range("AD28").Value = "N" And Application.CountIf(Range("O12:O85"),
"Steve") = 0 Then
On Error Resume Next
Selection.Find(What:="Alternate", LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Replace What:="Alternate", Replacement:="Steve", LookAt:
=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End If

If the condition is met and the name Steve is input into cell O1, O12 or O34,
I want where ever it is populated to have a specific cell color. How can I
write this into what I have?

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200604/1