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
.