Actually, I figured it out!

Thank you so much for your help!

"JE McGimpsey" wrote:

One way:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim vValue As Variant
With Target
If .Count 1 Then Exit Sub
If Not Intersect(.Cells, Range("A1,A4:A7,J10")) Is Nothing Then
vValue = .Value
If IsNumeric(vValue) Then
Application.EnableEvents = False
With .Offset(0, 1)
.Value = .Value + vValue
End With
Application.EnableEvents = True
End If
End If
End With
End Sub


In article ,
forevertrying wrote:

I've used:

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

If I can only use 1 Worksheet_Change() do you mean I can only apply this to
one other pair of cells?

I have around 30 or so that I want it to "tally" up for me.

Can you think of any other way I can get this done?

"JE McGimpsey" wrote:

You didn't say which "whole code" you'd chosen, but in either case,
you'd need to rewrite it a bit to test for the multiple ranges.

You can only have one Worksheet_Change() routine in any worksheet code
module.

In article ,
forevertrying wrote:

I'm going to need it to work several times in different areas of a
worksheet.

Do I need to rewrite the whole code for each bit, or can I just add in at
some point through the code?