I have created a table that is going to be completed by users within a geographically disperse region. one of the tables is Action Required - title ACTION
There are three options
Urgent 2 days - value: URGENT
Follow up 7 days - value : FOLLOW
Information only / reading - value : INFORMATION

when the person selects the option I am wanting the font colour to change
urgent - red
follow - orange
Information - green

I have been trying my best to understand and use previous threads. and I have used the following in VBA ThisDocument I have saved the document as macro enabled. nothing is changing. What am I doing wrong ????? ps this is my first time at using the msoffice forum

Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
If ContentControl.Title = "ACTION" Then
With ContentControl.Range
Select Case .Text
Case "URGENT"
.Cells(1).Font.Color = wdColorRed
Case "FOLLOW"
.Cells(1).Font.Color = wdColorOrange
Case "INFORMATION"


.Cells(1).Font.Color = wdColorGreen
End Select
End With
End If
End Sub