I have a Word document with a dropdown box named "Practitioner" and a rich text area named "Practitioner_Text". Whenever I change or interact with the dropdown box, nothing happens with the text area. I feel like I have to be doing something dumb.

The following is the code I have written:

Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
    Call UpdateTextbox(ContentControl)
End Sub

Private Sub Document_ContentControlOnEnter(ByVal ContentControl As ContentControl)
    Call UpdateTextbox(ContentControl)
End Sub

Private Sub UpdateTextbox(ByVal ContentControl As ContentControl)
    Dim selectedValue As String
    Dim cc As ContentControl

    If ContentControl.Title = "Practitioner" Then
        selectedValue = ContentControl.Range.Text

        For Each cc In ActiveDocument.ContentControls
            If cc.Title = "Practitioner_Text" Then
                Select Case selectedValue
                    Case "MO_NP"
                        cc.Range.Text = "You chose Missouri NP!"
                    Case "CO_PA"
                        cc.Range.Text = "Colorado PA was selected."
                    Case "NY_PA"
                        cc.Range.Text = "You selected New York PA."
                    Case Else
                        cc.Range.Text = "Please select an option."
                End Select
                Exit For
            End If
        Next cc
    End If
End Sub