Add check mark to cell upon selection

  • Thread starter Thread starter RVS
  • Start date Start date
R

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!
 
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---
 
"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
 
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
 
Back
Top