Format cell text based on cell colour.

Hi,

I need help formating a cells' text based on the cell colour.

E.g. If cell b12 fill colour is red then a text should appear saying Service. I have already set conditional formating to determin the cell fill colour.

Any help would be appriciated.

Thanks

Option Explicit

Sub sSetCF()
With Range("B12")
    .Select
    .FormatConditions.Add _
        Type:=xlExpression, _
        Formula1:="=A12=""Red"""
    .FormatConditions(.FormatConditions.Count).SetFirstPriority
    With .FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 255
        .TintAndShade = 0
    End With
    .FormatConditions(1).StopIfTrue = False
End With
End Sub

Sub sSetText()

With Range("B12")
    If .FormatConditions(1).Interior.Color = 255 Then
        .Value = "Service"
    End If
End With
End Sub

Thanks for the reply, it worked in a manner.

I need cells b12:j16 to say service only if they are highlighted red.

Thanks

Thanks for the reply I will give it a go. Much appreciated.

What's with the please and thank you quote mehmetcik? In all my post I said thank you, I appreciate help from all willing to do so.

Thanks RGM0

Wrong solution

What did he ask for? And what did he get? I won't disagree that there are other more practical solutions, as you suggest. But, when I ask for something, I prefer to get what I ask for, not what someone else decides I should have.

And I only explained how it could be done. Not that he must use the solution provided.