How to uncheck checkboxes with Date Macro

While researching the Marlett checkbox I found this code to make the Marlett checkbox a double click instead of manually entering a letter.

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
        If Target.Count > 1 Then Exit Sub
        If Intersect(Target, Range("myChecks")) Is Nothing Then Exit Sub
        Target.Font.Name = "marlett"
        If Target.Value <> "a" Then
        Target.Value = "a" 
        Cancel = True
        Exit Sub
    End If
    If Target.Value = "a" Then
        Target.ClearContents 
        Cancel = True
        Exit Sub
    End If
End Sub

After entering the following code to the Workbook Open section of the file.

For Each c In Worksheets("Sheet1").Range("H7:H78")
    If c.Value = "Needs Recharge" Then Range("A" & c.Row).Value = "r"
    Next c

Now with these 2 codes it detects when a crate needs to be recharged and replaces the checkbox letter "a" with an "r"(which comes up as an "X" in Marlett font). When the employee who recharges the crate finishes recharging a crate they then double click the checkbox, which will then change the 'X" back to a check.