Thanks Andy, it worked. I didn't know their was a difference between the
sheet obj and code mod. I still don't understand how the two are different
but it work.

On to the next problem I'm sure I'll be back with other questions on my next
steps.

thx again
dave

"Andy Pope" wrote:

Hi,

Did you place the code in the sheet object or a standard code module.

If you right click the sheet tab and pick View Code. Now paste you code
and it should work.

And you may want to change the J reference to upper case.

If .Address(False, False) = "J1" Then

Cheers
Andy

DaveM wrote:
I read your post from october noted below regarding how to create a two cell
accumulator. I went to the link you referenced and got the code which i
pasted below. Using my visual editor in excel I placed this code in to the
open workbook. When i go to the sheet and change the value in K1, nothing
happesn... What might I be missing. Marcos are enabled so i'm at a loss.

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

***************
You can do it but what will you do when you make a mistake in entry?

http://www.mcgimpsey.com/excel/accumulator.html


Gord Dibben MS Excel MVP

On Sun, 21 Oct 2007 16:58:01 -0700, preston-ahp
wrote:


I am wanting to utilize essentially an adding machine function in an Excel
spreadsheet. I can't, presently, find a way to input a number in a cell, have
it included in a total, and then enter another number to be added to that
recently increased sum (just like an adding machine).

**************