Private Sub Worksheet_Change(ByVal Target As Range)
'Plugging the starting value in column Z and increasing it incrementally
set rng = Range("AH3:AH6000")
If Intersect(target,rng) is nothing Then Exit Sub
Application.EnableEvents = False
Cells(target(1).Row,"W").Value = _
Cells(target(1).Row,"W").Value + 1
Cells(target(1).Row,"Z").Value = _
Cells(target(1).Row,"Z").Value + _
Target.Value
Application.EnableEvents = True
End Sub

--
Regards,
Tom Ogilvy


"Jay" wrote in message
...
I need to have this section of code modified to include a wide range of
W3:w6000, Z3:Z6000, AH3:AH6000. How would one accomplish that?

See code that follows:
---------------
Private Sub Worksheet_Change(ByVal Target As Range)
'Plugging the starting value in column Z and increasing it incrementally
If Target.Address < "$AH$3" Then Exit Sub
Application.EnableEvents = False
Range("W3").Value = Range("W3").Value + 1
Range("Z3").Value = Range("Z3").Value + Target.Value
Application.EnableEvents = True
End Sub
------------------
THanks,