tried that... still nothing

also tried changing the code to:
Case Is = "CA"
Rows(target.Row & ":" & target.Row).Select
Selection.Font.ColorIndex = 45

still nothing...

is there something outside this code that could be inhibiting the action?

"Norman Jones" wrote:

Hi Mark,

Completing your code segments, the
code works for me.

Have you tried setting break points and
stepping through the code?

A written the code responds to single cell
entries in column A and it is case sensitive.




---
Regards.
Norman


"Mark Kubicki" wrote in message
...
I have some VBA code to change the font color of a row; however,
nothing changes... any suggestions?

It starts with a "change event" that triggers the function:

Private Sub Worksheet_Change(ByVal target As Range)
Application.Run UpdateRowColor(target)

then the function runs like this:

Function UpdateRowColor(target)
'This section effects changes to the "Project Phase" column
If Not Intersect(target, Range("A:A")) Is Nothing Then
If target.Count 1 Then
Exit Function
Else
Select Case target.Value
Case Is = "CA"
Range(target.Row & ":" &
target.Row).Font.ColorIndex
= 45
Case Is = "CD"
...

(one (but only 1) of the cells in any given row has a "conditoinal
formatting")

thanks in advance,
mark