Click a cell next to an item and have a checkmark appear
 

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?

Click a cell next to an item and have a checkmark appear
 

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

Click a cell next to an item and have a checkmark appear
 

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
.