Worksheet change - single click>value entered

Hi,

Is it possible to set up a worksheet change function so that if a user single clicks a cell a value is entered automatically into that cell? If so, can the function allow for the use of the delete button?

I guess a single click toggle between no value & the specified value?

All I've been able to come up with is below, but I'm still quite new to worksheet changes, etc. It requires a double click, and delete won't work (because it entails more clicks!).

Thanks.

[vba]Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Cells.Count > 1 Then Exit Sub
Target.Value = "Nil"
End Sub[/vba]

I don't think this is everything you want, but see if it helps:[VBA]Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Cells(1, 1)) Is Nothing Then Exit Sub
Application.EnableEvents = False
Target.Offset(1).Activate
Application.EnableEvents = True
If Target = vbNullString Then Target = 1: Exit Sub
If Target = 1 Then Target = vbNullString
End Sub
[/VBA]