Организовать связь элемента checkbox (флажок) и ячейки в excel

Private Sub CheckBox1_Click()
  Range('U7').Select
  If (ActiveCell.FormulaR1C1 = '=1') Then ActiveCell.FormulaR1C1 = '=0' Else ActiveCell.FormulaR1C1 = '=1'    
End Sub

Sub tmp1()
'
    Dim cel_adr As String
    ActiveSheet.CheckBoxes.Add(ActiveCell.Left, ActiveCell.Top, 25.5, 17.25).Select
   cell_adr = ActiveCell.Address
   ActiveCell.Font.ColorIndex = 2
    With Selection
        .Value = xlOff
        .Characters.Text = ''
        .LinkedCell = cell_adr
        .Display3DShading = False
    End With
End Sub

Sub CreateLinkedCheckBox()
 
    Dim cel_adr As String
    
    ActiveSheet.CheckBoxes.Add(ActiveCell.Left + 2, ActiveCell.Top, 25.5, 17.25).Select
   
   cell_adr = ActiveCell.Address
   
   ActiveCell.Font.ColorIndex = 2
   
   Selection.ShapeRange.LockAspectRatio = msoTrue
   
   
    With Selection
        .Value = xlOff
        .Characters.Text = ''
        .LinkedCell = cell_adr
        .Display3DShading = False
    End With
 
End Sub
Sub Fill_Marked_with_CheckBoxes()
 
Dim counter As Long
Dim counter2 As Long
 
Dim cel_adr As String
 
counter = 0
counter2 = 0
 
Dim selected_area As Variant
Dim vars As Variant
 
selected_area = Selection
 
For Each vars In Selection.Cells
 
 
counter = counter + 1
If vars.Value = 'O' Then GoTo AddCheckBox
 
Cycle:
 
Next vars
 
MsgBox (counter)
MsgBox (counter2)
 
GoTo EndSub
 
AddCheckBox:
 
    counter2 = counter2 + 1
    
    vars.Activate
    
    ActiveSheet.CheckBoxes.Add(ActiveCell.Left + 2, ActiveCell.Top, 25, 17).Select
   
   cell_adr = ActiveCell.Address
   
   ActiveCell.Font.ColorIndex = 2
   Selection.ShapeRange.LockAspectRatio = msoTrue
    With Selection
        .Value = xlOff
        .Characters.Text = ''
        .LinkedCell = cell_adr
        .Display3DShading = False
    End With
 
GoTo Cycle
 
EndSub:
 
End Sub