Don,

Thanks for the quick reply but i have never worked with VB and am not sure
what to do once I put the code in.

"Don Guillett" wrote:

Try using

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$E$2" Then Target = 234
End Sub
--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"pawlingJohn" wrote in message
...
I would like to be able to click on a cell and have a value automatically
entered. I would like this to work like a forms control checkbox. Or is
my
only answer use the control checkbox?