Hello All!

I am trying to write code that will add a check mark to any cell in Column A
upon selection. Here is what I've written, but I cannot get it to work.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count 1 Then Exit Sub

If Not Intersect(Target, Range("A2:A100")) Is Nothing Then

Target.Font.Name = "Marlett"

If Target = vbNullString Then

Target = "a"

Else

Target = vbNullString

End If

End If

End Sub

Any thoughts on why this is not working?
Thanks in advance!