How about a double-click??

Put the following in worksheet code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Target.Value = 1
Cancel = True
End Sub

double-click any cell to set it to 1
--
Gary''s Student


"Cheers100" wrote:

Hi. I want to enter simple data (a figure 1) into a series of cells while on
the telephone (its for a phone based questionnaire). Is there a way of just
pointing at the cell and clicking on the mouse that will le me do this? Many
thanks. Rob