Hi,

Can anyone please tell me where I'm going wrong with this code...

Private Sub Document_ContentControlOnExit(ByVal CC As ContentControl, Cancel As Boolean)
Dim lngIndex As Long
Dim strValue As String
Select Case CC.Title
Case "RAG"
With CC
If .ShowingPlaceholderText Then Exit Sub
Select Case .Range.Text
Case "RED": .Range.Font.Color = RGB(178, 34, 34)
Case "AMBER": .Range.Font.Color = RGB(255, 165, 0)
Case "GREEN": .Range.Font.Color = RGB(50, 205, 50)
Case Else: .Range.Font.ColorIndex = wdAuto
End Select
Select Case CC.Title
Case "Seat depth"
With CC
If .ShowingPlaceholderText Then Exit Sub
Select Case .Range.Text
Case "BLUE": .Range.Font.Color = RGB(0, 176, 240)
Case "PURPLE": .Range.Font.Color = RGB(112, 48, 160)
Case "RED": .Range.Font.Color = RGB(178, 34, 34)
Case "ORANGE": .Range.Font.Color = RGB(247, 150, 70)
Case "YELLOW": .Range.Font.Color = RGB(255, 165, 0)
Case "GREEN": .Range.Font.Color = RGB(50, 205, 50)
Case Else: .Range.Font.ColorIndex = wdAuto
End Select
For lngIndex = 2 To .DropdownListEntries.Count
If .DropdownListEntries(lngIndex).Text = .Range.Text Then
strValue = .DropdownListEntries(lngIndex).Value
.Type = wdContentControlText
.Range.Text = strValue
.Type = wdContentControlDropdownList
Exit For
End If
Next lngIndex
End With
Case Else
End Select
lbl_Exit:
Exit Sub
End Sub


The first and last parts I was kindly helped with and I'd like to add in the section in bold but I'm getting it wrong!

Thank you