quicker way to link check boxes to cells

Sub AddCheckBoxes()
    On Error Resume Next
    Dim c As Range, myRange As Range
    Set myRange = Selection
    For Each c In myRange.Cells
        ActiveSheet.CheckBoxes.Add(c.Offset(0, 3).Left, c.Top, c.Width, c.Height).Select
            With Selection
                .LinkedCell = c.Address
                .Characters.Text = ""
                .Name = c.Address
            End With
        Next
        myRange.Select
End Sub

ActiveSheet.CheckBoxes.Add(c.Offset(0, 3).Left, c.Top, c.Width, c.Height).Select

Sub RemoveCheckboxes()
On Error Resume Next
ActiveSheet.CheckBoxes.Delete
Selection.FormatConditions.Delete
End Sub

Option Explicit 
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True 
 'Limit Target count to 1
If Target.Count > 1 Then Exit Sub 
'Isolate Target to a specific column
if Target.Column <> 5 Then Exit Sub'set Target font to "marlett"
Target.Font.Name = "marlett" 
'Check value of target
If Target.Value <> "a" Then 
Target.Value = "a" 'Sets target Value = "a"
ElseIf Target.Value = "a" Then 
Target.ClearContents 'Sets Target Value = ""
End If 
End Sub