Hi,

Try this. the fixit subroutine has probably been added for debugging and
does nothing


Option Explicit
Dim oldvalue As Double
Private Sub Worksheet_SelectionChange(ByVal target As Range)
If target.Column = (1) And target.Cells.Count = 1 Then

oldvalue = target

Application.EnableEvents = False
If target.Value = 0 Then oldvalue = 0
target.Value = 1 + oldvalue
oldvalue = target.Value
Application.EnableEvents = True
End If
End Sub

Mike

"rengewwj" wrote:

I want to count the clicks in any of a large range of cells in one column.
This is for purposes of collecting clicks like a person making hash marks on
an inventory count sheet. There is some brilliant code on another forum but
it only works on a couple or a few cells, as named within the code. I cannot
make it work throughout a column. This is the code:

Option Explicit
Dim oldvalue As Double
Private Sub Worksheet_SelectionChange(ByVal target As Range)
If target.Address = "$A$5" Or target.Address = "$B$5" Then

oldvalue = target

Application.EnableEvents = False
If target.Value = 0 Then oldvalue = 0
target.Value = 1 + oldvalue
oldvalue = target.Value
Application.EnableEvents = True
End If
End Sub
Sub fixit()
Application.EnableEvents = True
End Sub