How can I create a click counter?

[jiberish123]

Hello all, I am trying to create a form that would have a list of items that would add the times I click on each item, in other words, each time I click on "Item" it would count 1,2,3, etc. Any sugestions?

 

[mikerickson]

Perhaps something like would work if the list is in column A and the count of clicks is in column B.

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
    With Target
        If .Cells.Count = 1 And .Column = 1 And .Value <> vbNullString Then
            With .Offset(0, 1)
                .Value = Val(.Text) + 1
            End With
        End If
    End With
End Sub

 

[jiberish123]

Hi mikerickson, thanks for the quick reply. How would I go about getting this code into a cell? Is it a macro?

 

[mikerickson]

Yes, it is a macro. It goes in the code module for the sheet on which the list resides.

 

[jiberish123]

Thank you mikerickson, I managed to create a module1 with the code you provided but i still think it is over my head. Once I create the list on the Excel sheet how do I activate the individual cells to run the procedure? Sorry for being such a pain.