You don't give too much information but this will put a tick in A1 _ A100
whenever 1 of those cells is selected

Right click your sheet tab, view code and paste it in

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A1:A100")) Is Nothing Then
Target.Font.Name = "WingDings 2"
Target.Value = "P"
End If
End Sub

Mike
"rexmann" wrote:

Hi All

I have a mamoth job of data entry and need to enter results with a yes/no
answer. Is there a way of setting up excel so you click in the cell and it
puts a tick or cross (or number)?

I am using Excel 2003 professional

Cheers Rexmann