Accumulator

[BadBoy]

Hello,

It would seem what I was looking for all this time was called an accumulator.

Is there some way to alter the code below to link up to a page in another
workbook?

In other words, a number would be typed in sheet 1 of another work book and
this formula would take that number and add it and total it all the while
keeping the running total.

Thank you muchly.

-Bad



Private Sub Worksheet_Change(ByVal Target As Excel.Range)
With Target
If .Address(False, False) = "A1" Then
If IsNumeric(.Value) Then
Application.EnableEvents = False
Range("B1").Value = Range("B1").Value + .Value
Application.EnableEvents = True
End If
End If
End With
End Sub

 

[BadBoy]

Good morning,

You Sir, my wife will have your children!

Thank you very much for the response. (Insert happy face here)

-Bad