right click sheet tabview codecopy/paste thissave workbook.
Works for row 4 on down

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row 3 Then
If Target.Column = 2 Then Target = "Yes"
If Target.Column = 3 Then Target = "No"
End If
End Sub

--
Don Guillett
SalesAid Software

"John" wrote in message
...
Using Excel2000
I am setting up a survey with questions in column A
and responses in columns B & C.
Column B is for Yes, & column C is for NO

Is there any way to have the responses automatically put in the cells
when the user clicks on the appropriate cell.

i.e.
COLUMN A COLUMN B COLUMN C
Question1 Yes
Question2 No
Question3 Yes
Question4 Yes

I would like the responses automatically put in the cell just
by clicking in the cell.
Is this possible.

P.S. The questionaire is more complex that just yes or no,
but this gives the gist of what I am tryin to achieve.