change value with single click, increasing by 1 every time?

J

jkbrown

Is it possible to have a cell setup to increase the value of the cell by 1
everytime it is clicked? Thanks.
 
A

Ardus Petus

With double-click, use following sub in Worksheet's code:

'----
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Target.Address = "$A$1" Then
Target.Value = Target.Value + 1
Cancel = True
End If
End Sub
'-----

HTH
 
J

jkbrown

I want to be able to change the value with one touch on the touch screen.
That was my first thought on it as well. Thanks for the input.
 
Top