[/FONT]
[FONT=Courier New]Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Selection.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("A1")) Is Nothing Then
Range("B1").Value = Range("B1").Value + 1
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Selection.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
Target.Offset(0, 1).Value = Target.Offset(0, 1).Value + 1
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Selection.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("A1")) Is Nothing Then
With Range("B1")
.Value = .Value + 1
.Select
End With
End If
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Selection.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("A1")) Is Nothing Then
With Range("B1")
.Value = .Value + 1
End With
Cancel = True
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Selection.Count > 1 Then Exit Sub
Set zzz = Range("$A$1:$A$10,$C$1:$C$10,$E$1:$E$10,$G$1:$G$10,$I$1:$I$10,$K$1:$K$10,$M$1:$M$10,$O$1:$O$10,$Q$1:$Q$10,$S$1:$S$10")
If Not Intersect(Target, zzz) Is Nothing Then
With Target.Offset(, 1)
.Value = .Value + 1
.Select 'optional
End With
End If
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Set zzz = Range("$A$1:$A$10,$C$1:$C$10,$E$1:$E$10,$G$1:$G$10,$I$1:$I$10,$K$1:$K$10,$M$1:$M$10,$O$1:$O$10,$Q$1:$Q$10,$S$1:$S$10")
If Not Intersect(Target, zzz) Is Nothing Then
With Target.Offset(, 1)
.Value = .Value + 1
End With
Cancel = True
End If
End Sub