Add check mark to cell upon selection

[RVS]

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!

 

[ryguy7272]

Format your cells as 'Wingdings 2' and put this event code behind the SHEET
(not in a Module):

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Cancel = True
If Not Intersect(Target, Range("A1:AZ100")) Is Nothing Then
If Target = "P" Then
Target = vbNullString
ElseIf Target = vbNullString Then
Target = "P"
Else
End If
End If
End Sub


HTH,
Ryan---

 

[Jacob Skaria]

"RVS" try the below

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A2:A100")) Is Nothing Then
If Target.Count = 1 Then
Target.Font.Name = "Marlett"
Target.Value = IIf(Target.Value = "r", "e", "r")
'Target.Value = IIf(Target.Value = "a", "e", "a") 'For tick mark
End If
End If
End Sub

If this post helps click Yes

 

[Jacob Skaria]

Missed to mention ...You can create a visual impact of check box by doing the
below along with your code..

1. Enter small letter "e" in all the cells (A2:A100)
2. Select all cells in that range (A2:a100) and change the font to Marlett.
3. Adjust the column width to look like a square check box

If this post helps click Yes