Dan

You could use a Worksheet_SelectionChange() event

right-click on the sheet tab and select 'View code' and paste the code
below. It will add a 1 to ant cell clicked in column A or take it away if
one already exists

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Columns("A:A")) Is Nothing Then
If Target.Value = "" Then
Target.Value = 1
Else
Target.Value = ""
End If
End If
End Sub

--
HTH
Nick Hodge
Microsoft MVP - Excel
Southampton, England
DTHIS
www.nickhodge.co.uk


"DanW" wrote in message
...
I have a spreadsheet that tracks tasks done. Currently, they have to enter
a
"1" into the field chosen. Is there a way that they could just click in
the
space and a 1 would be entered?