You need an event macro to do it with a mouse click.

Select the sheet where you want this to happen.
Right click the sheet tab, select View Code
Copy/paste the code below into the window that opens.

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim myHeight As Double
Application.EnableEvents = False
On Error GoTo sub_exit
If Not Intersect(Target, Range("A1:A100")) Is Nothing Then
With Target
If .Value = "a" Then
.Value = ""
Else
myHeight = .EntireRow.RowHeight
.Value = "a"
.Font.Name = "Marlett"
.EntireRow.RowHeight = myHeight
End If
End With
End If
sub_exit:
Application.EnableEvents = True
End Sub

Close the window to return to Excel

The range effected is A1:A100. Change to suit.


--
Biff
Microsoft Excel MVP


"James Silverton" wrote in message
...
Hello All!

In Access you can set up a "cell" so that a checkmark can appear on one
mouse click and disappear on another. Can this be done in Excel?

Thanks in advance!

--


James Silverton
Potomac, Maryland

Email, with obvious alterations:
not.jim.silverton.at.verizon.not