Thanks Tom:

Now I've just bee informed by management that they'd like to add two
additional columns to the mix that will do the same as two prior ones. Only
now they want to enter values to column AI, incement column "AA" by that
value and add 1 to column "X", see below. This should be it, I hope! Thanks,
for the assistance.

----------
Private Sub Worksheet_Change(ByVal Target As Range, ByVal Target1 As Range1)

'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

Set rng1 = Range1("AI3:AI6000")
If Intersect(Target1, rng1) Is Nothing Then Exit Sub
Application.EnableEvents = False
Cells(Target(1).Row, "X").Value = Cells(Target1(1).Row, "X").Value + 1
Cells(Target(1).Row, "AA").Value = Cells(Target1(1).Row, "AA").Value +
Target.Value
Application.EnableEvents = True
End Sub
---------



"Tom Ogilvy" wrote:


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,