vba help

[knot]

can somebody please change the target address in the following code so it is for cells A1:A10. Thank you.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
If Target.Value = 4 Then
Application.EnableEvents = False
Range("B1").Value = Range("B1").Value + 1
Application.EnableEvents = True
End If
End If
End Sub

[knot]

sorted

[phrenetic]

knot

Could you post the answer - it would be useful to understand what the answer turned out to be.

Thanks

Alistair

[knot]

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
For Each c In Intersect(Target, Range("A1:A10"))
If c.Value = 4 Then
Application.EnableEvents = False
c.Offset(, 1).Value = c.Offset(, 1).Value + 1
Application.EnableEvents = True
End If
Next c
End If
End Sub

[phrenetic]

Thanks - always useful to learn something new.

Alistair