Content control font color

[rkferguson]

I have four content controls at the end of a document that I use to display different counters. The control has default/automatic font color, the other three I assigned a font color based on their content. That is, one control is green, one is red, and the last is blue. The macro works as expected, except for the last content control. Instead of displaying in blue font, it displays as green font.

Any suggestions for what I may be doing wrong?

I have provided the macros below, I can provide the host document if necessary:

Option Explicit

'Many thanks to Mr. Greg Maxey, Greg Mayor, and Westconn1 for their help with these macros
'This macro captures user selections to questions and colors the cell according to those selections

[/CODE]Sub Document_ContentControlOnExit(ByVal oCC As ContentControl, Cancel As Boolean)

If oCC.Type = 3 Or oCC.Type = 4 Then
Select Case oCC.Range.Text
Case "Y"
oCC.Range.Cells(1).Shading.BackgroundPatternColor = &H50B000
oCC.Range.Font.ColorIndex = wdWhite
Case "N"
oCC.Range.Cells(1).Shading.BackgroundPatternColor = wdColorRed
oCC.Range.Font.ColorIndex = wdWhite
Case "NA"
oCC.Range.Cells(1).Shading.BackgroundPatternColor = &HC07000
oCC.Range.Font.ColorIndex = wdWhite
Case Else
oCC.Range.Cells(1).Shading.BackgroundPatternColor = wdColorWhite
oCC.Range.Font.Color = wdColorAutomatic
End Select
UpdateTotals
End If
lbl_Exit:
Exit Sub
End Sub

'This macro tallies the various responses to the questions in the document

Sub UpdateTotals()
Dim lngY As Long, lngN As Long, lngNA As Long, lngNullorInvalid As Long
Dim oCC As ContentControl
Dim oRng As Range

For Each oCC In ActiveDocument.Range.ContentControls
Select Case oCC.Type
Case 8
Case 3, 4
Select Case oCC.Range.Text
Case Is = "Y": lngY = lngY + 1


Case Is = "N": lngN = lngN + 1
Case Is = "NA": lngNA = lngNA + 1
Case Else: lngNullorInvalid = lngNullorInvalid + 1
End Select
End Select
DoEvents
Next oCC

ActiveDocument.SelectContentControlsByTitle("Not Selected").Item(1).Range.Text = lngNullorInvalid
ActiveDocument.SelectContentControlsByTitle("Yes") .Item(1).Range.Text = lngY
ActiveDocument.SelectContentControlsByTitle("No"). Item(1).Range.Text = lngN
ActiveDocument.SelectContentControlsByTitle("NA"). Item(1).Range.Text = lngNA

lbl_Exit:
Exit Sub
End Sub