Private Sub Document_ContentControlOnEnter(ByVal oCC As ContentControl)
Application.ScreenUpdating = False
  With ActiveDocument
    On Error GoTo NoTally
  With Selection
    If oCC.Tag <> "RateDot" Then
        GoTo NoTally
    End If
    If .Information(wdWithInTable) Then
      Set oTbl = .Tables(1)
      lCol = .Cells(1).ColumnIndex
    End If
  End With
  If oTbl Is Nothing Then GoTo NoTally
    Set oRow = oTbl.Rows(Selection.Cells(1).RowIndex)
    With oRow
      If .Range.ContentControls.Count < 5 Then GoTo NoTally
      If oCC.Type = wdContentControlCheckBox Then
        If oCC.Checked = True Then
          For Each oCel In oRow.Cells
            With oCel.Range
              If .ContentControls.Count > 0 Then
                If .ContentControls(1).Type = wdContentControlCheckBox Then
                  If oCel.ColumnIndex <> lCol Then
                    .ContentControls(1).Checked = False
                  End If
                End If
              End If
            End With
          Next
        End If
      Else
      GoTo NoTally
      End If
    End With
NoTally:
    Set oTbl = Nothing
  End With
Application.ScreenUpdating = True
Exit Sub
End Sub