Adding and keeping a running total in a single cell

I have had some help from Mr Ross and a couple others regarding the ability to keep a running total in a cell by adding a number to that cell displaying the resulting sum. Everyone who replied was great....Thanks alot.
I finaly found this macro that runs automatically every time and works great......But only for one cell so far..."D3"...Ugh!!! I need this macro to work for the following range of cells "colums d thru j from row 3 down to 28 in each colum. Each cell is an individual.

Please Login or Register  to view this content.

As you see the macro includes cell D3 only, I have made several attempts to include more cells but have failed.... I tried like this

Please Login or Register  to view this content.

...and so on" Then

I have tried ....If .Address(False, False) = "D3:J3" Then
and I have tried ....If .Address(False, False) = "23Rx7C" Then
I can make it work for cell d3 but not the others. Will I have to repeat this code for every cell? Anyway, I will keep hacking at it. If anyone has any info on this problem I would greatly appreciate it.

jlg371
View Public Profile
Send a private message to jlg371
Find all posts by jlg371
Add jlg371 to Your Contacts