Attaching vba to OnExit of Drop-down list box Content Control in Microsoft Word latest version

I've used vba with the Legacy controls for many years but now need to attach code to identify an item selected in a drop down list box - Content Control. There are two drop-down list box content controls in the template. One has the title: Policy, the other has the title: Group. I am going to need to assign code to move to bookmarks and insert auto-text based on the choices made in each of these drop-down list boxes.

I've tried:

Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)

On Error GoTo EH

Dim objCC As ContentControl

For Each objCC In ActiveDocument.ContentControls

    If objCC.Title = "Group" Then

        Select Case objCC.Range.Text

            Case "Apple"

                MsgBox "Applewas selected"

            Case "Orange"

                MsgBox "Orangewas selected"

            Case "Pear"

                MsgBox "Pear was selected"

        End Select

    End If

Next objCC

    

Set objCC = Nothing

Exit Sub

EH:

MsgBox Err.Number & " " & Err.Description

Set objCC = Nothing

End Sub

No code runs when I exit the content control. I've also tried my Private Sub being called this, with all remaining code the same.

Private Sub Document_ContentControlOnExit(ByVal objCC As ContentControl, Cancel As Boolean)

I would be grateful for any help you can offer.

Many thanks

SG