Double Click to add/remove Tick

A simple method to add a tick to a cell instead of using controls. Double click to add tick and double click to remove tick.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("F1:F100")) Is Nothing Then
            Cancel = True 'Prevent going into Edit Mode
            Target.Font.Name = "Marlett"
               If Target = vbNullString Then
                   Target = "a"
                Else
                   Target = vbNullString
                End If
    End If
End Sub