Font ColorIndex Advice Please

[ipbr21054]

Hi,

Below is a section of my working code.
When it runs the year is entered into cell E7
I just need to add to the existing code that when the entered year is placed in E7 it needs to be Red.

Maybe .Font.ColorIndex = 3 but where does it need to be added to the code below

Please advise thanks

    Application.EnableEvents = False    Select Case Mid(Range("B7").Value, 10, 1)
    Case Is = "S"
            Range("E7").Value = "1995"
    Case Is = "T"
            Range("E7").Value = "1996"
    Case Is = "V"
            Range("E7").Value = "1997"

 

[mohadin]

Try

Range("E7").Interior.Color = vbRed

or

Range("E7").Font.Color = vbRed

 

[ipbr21054]

Hi,
How should it look when I place it into the code supplied.

Thanks

 

[mohadin]

Hi
Place it at the end Case

 

[ipbr21054]

Can you show me as I keep getting invalid qualifier message

 

[ipbr21054]

Ok all done.
I used .

Thanks very much.

 

[mohadin]

You are well come