Private Sub Document_ContentControlOnEnter(ByVal CC As ContentControl)
If CC.Type <> wdContentControlCheckBox Then Exit Sub
Application.ScreenUpdating = False
Dim MyGrp As String, i As Integer, MySelectX As Integer, bChk As Boolean
'get the tag number of the item in the list
If UBound(Split(CC.Tag, "-")) > 0 Then
  If IsNumeric(Right(CC.Tag, 1)) Then
    MySelectX = CInt(Split(CC.Tag, "-")(1))
  Else
    MySelectX = ""
  End If
End If
'Get the base name of the tag group
MyGrp = Split(CC.Tag, "-")(0) & "-"
Select Case CC.Title
  Case "Char"
    bChk = ActiveDocument.SelectContentControlsByTag(MyGrp & MySelectX)(1).Checked
    'if user checks box, uncheck all others in list
    If CC.Checked = True Then
      For i = 0 To 4
        ActiveDocument.SelectContentControlsByTag(MyGrp & i)(1).Checked = False
      Next i
      If bChk = False Then
        ActiveDocument.SelectContentControlsByTag(MyGrp & MySelectX)(1).Checked = True
      End If
    End If
End Select
Application.ScreenUpdating = True
End Sub