Change colour of text through VBA

[joacro]

Hi there,

Hope someone can help.

I have a dropdown box in C6 - C26 with 3 options
1. x
2. x (!)
3. (!)

I need the (!) to be in red and bolded when selected

Regards

 

[VoG]

Try this: right click the sheet tab, select View Code and paste in

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C6:C26")) Is Nothing Then
    Select Case Target.Value
        Case "(!)": Target.Font.ColorIndex = 3: Target.Font.Bold = True
        Case Else: Target.Font.ColorIndex = xlAutomatic: Target.Font.Bold = False
    End Select
End If
End Sub

 

[joacro]

Hi Peter,

I works great,

Thank you