Case "chkYNEstatePlanning"
 
  
    With ActiveDocument.SelectContentControlsByTitle("chkYNEstatePlanning")
     If CC.ShowingPlaceholderText Then GoTo lbl_Exit
      If CC.Tag = "Yes" Then
        .Item(2).Checked = Not CC.Checked
      ElseIf CC.Tag = "No" Then
        .Item(1).Checked = Not CC.Checked
      End If
    End With
 Case Else
 End Select
lbl_Exit:
  Application.ScreenUpdating = True
  Exit Sub

End Sub