I have a list of items. I would like to click the cell to the left of the
item and have a checkmark appear, click the cell again and have the checkmark
disappear. Is this possible?

Hi JP

This should sort you out. Highlight the column you plan to click on
and format that column as Wingdings. Paste this code in the worksheet
module where you want the event to occur, so Sheet1 for example.

I have made it a doubleclick event so it will appear and disappear as
you DOUBLE click on the cell.

Take care

Marcus



Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
On Error Resume Next
If Intersect(Target, Range("F2:F6")).Value = "ü" Then
Target.Value = ""
Else: Target.Value = "ü"
End If

End Sub

You are 'The Man'! Thanks, Marcus, have a Happy New Year.

"marcus" wrote:

> Hi JP
>
> This should sort you out. Highlight the column you plan to click on
> and format that column as Wingdings. Paste this code in the worksheet
> module where you want the event to occur, so Sheet1 for example.
>
> I have made it a doubleclick event so it will appear and disappear as
> you DOUBLE click on the cell.
>
> Take care
>
> Marcus
>
>
>
> Option Explicit
>
> Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
> As Boolean)
> On Error Resume Next
> If Intersect(Target, Range("F2:F6")).Value = "ü" Then
> Target.Value = ""
> Else: Target.Value = "ü"
> End If
>
> End Sub
> .
>