How to add additional cells to this VBA code (adds 1 to the value of a cell in Excel by clicking it)?

[buck2825]

New at this
Trying to add cells to the code below (adds 1 with click). I need to add cells B1, C1, D1, E1, F1, G1 etc.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then
Target.Value = Target.Value + 1
End If
End Sub

 

[circledchicken]

Hi,

Try:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
    If Not Intersect(Target, Range("A1:F1")) Is Nothing Then
        Target.Value = Target.Value + 1
    End If

End Sub

Here's a useful article explaining the Intersect method: http://www.ozgrid.com/VBA/vba-intersect.htm

 

[buck2825]

Works Perfect!
Thank you