Same VB code not working for similar Content Controls with different CC titles

I have a Word document (attached) where the user is to enter information about the status of several tasks. For each task the user is to select the status of the task from a content control dropdown list. Options are: "No issues" or "Issues found". If "Issues found" is selected, the user is to provide a description of the issue for that task in a textbox.

While the code works for the first task, it does not work for the content controls in the second task

What am I doing wrong?

Code:

---

Private Sub Document_ContentControlOnExit(ByVal CCtrl As ContentControl, Cancel As Boolean)
  If CCtrl.Title = "CCDDL" Then
    With CCtrl.Range
      Select Case .Text
          Case "Issues found"
            .Font.ColorIndex = wdRed
            ActiveDocument.SelectContentControlsByTitle("CCTB")(1).SetPlaceholderText , , "Enter issues here"
          Case Else
            .Font.ColorIndex = wdBlack
            ActiveDocument.SelectContentControlsByTitle("CCTB")(1).SetPlaceholderText , , ChrW(8203)
            ActiveDocument.SelectContentControlsByTitle("CCTB")(1).Range.Text = vbNullString
      End Select
    End With
  End If
End Sub


Private Sub Document_ContentControlOnExit2(ByVal CCtrl As ContentControl, Cancel As Boolean)
  If CCtrl.Title = "CCDDL2" Then
    With CCtrl.Range
      Select Case .Text
          Case "Issues found"
            .Font.ColorIndex = wdRed
            ActiveDocument.SelectContentControlsByTitle("CCTB2")(1).SetPlaceholderText , , "Enter issues here"
          Case Else
            .Font.ColorIndex = wdBlack
            ActiveDocument.SelectContentControlsByTitle("CCTB2")(1).SetPlaceholderText , , ChrW(8203)
            ActiveDocument.SelectContentControlsByTitle("CCTB2")(1).Range.Text = vbNullString
      End Select
    End With
  End If
End Sub

---

There is no such thing as "Document_ContentControlOnExit2(ByVal CCtrl As ContentControl, Cancel As Boolean)" The procedure below is the event that is triggered when you exit a content control. You have to use it for one, two or a million CCs.

Sub Document_ContentControlOnExit2(ByVal CCtrl As ContentControl, Cancel As Boolean)

Code:

---

Private Sub Document_ContentControlOnExit(ByVal CCtrl As ContentControl, Cancel As Boolean)
  With CCtrl
    Select Case .Title
      Case "CCDDL"
        With .Range
            Select Case .Text
              Case "Issues found"
                .Font.ColorIndex = wdRed
                  ActiveDocument.SelectContentControlsByTitle("CCTB")(1).SetPlaceholderText , , "Enter issues here"
              Case Else
                .Font.ColorIndex = wdBlack
                ActiveDocument.SelectContentControlsByTitle("CCTB")(1).SetPlaceholderText , , ChrW(8203)
                ActiveDocument.SelectContentControlsByTitle("CCTB")(1).Range.Text = vbNullString
            End Select
        End With
      Case "CCDDL2"
        With .Range
            Select Case .Text
              Case "Issues found"
                .Font.ColorIndex = wdRed
                  ActiveDocument.SelectContentControlsByTitle("CCTB2")(1).SetPlaceholderText , , "Enter issues here"
              Case Else
                .Font.ColorIndex = wdBlack
                ActiveDocument.SelectContentControlsByTitle("CCTB2")(1).SetPlaceholderText , , ChrW(8203)
                ActiveDocument.SelectContentControlsByTitle("CCTB2")(1).Range.Text = vbNullString
            End Select
        End With
    End Select
  End With
lbl_Exit:
  Exit Sub
End Sub

---

This is exactly what I needed!
Thank you very much. I've learned a lot.

Glad to help.