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---

--
Ryan---
If this information was helpful, please indicate this by clicking ''Yes''.


"RVS" wrote:

> 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!

"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


"RVS" wrote:

> 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!

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
---------------
Jacob Skaria


"Jacob Skaria" wrote:

> "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
>
>
> "RVS" wrote:
>
> > 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!