Count # of Times Cell is Activated

[jamesmev]

I currently have a workbook that is locked where users can tab through and enter data.
I am trying to get a count every time Cell G5 is activated (either through tabbing or clicking).
I currently am using this code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("$G$5")) Is Nothing Then
Cancel = True
Range("Q5").Value = Val(Range("Q5").Value) + 1
End If
End Sub

However this only counts a double click. I am unable to adjust for my needs.

Any help with this?

 

[offthelip]

your are using the wrong event you should be using the worksheet selection change event which will catch both, try this:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("$G$5")) Is Nothing Then
Range("Q5").Value = Val(Range("Q5").Value) + 1
End If


End Sub

 

[jamesmev]

your are using the wrong event you should be using the worksheet selection change event which will catch both, try this:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("$G$5")) Is Nothing Then
Range("Q5").Value = Val(Range("Q5").Value) + 1
End If


End Sub

Perfect.
Thank you!