Hi,

right click your sheet tab, view code and paste this in. It works for a1 -
A10 so change to suit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
If IsEmpty(Target) Then
With Target
.Font.Name = "marlett"
.Value = "a"
End With
Else
Target.Value = ""
End If
End If
End Sub

Mike

"touchngo" wrote:

What I want to do is be able to click on a cell and a check mark appears and
if I click again it disappears.
Is this possible?

Thanks