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?