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.

 
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Static dAccumulator As Double
With Target
If .Address(False, False) = "D3" Then
If Not IsEmpty(.Value) And IsNumeric(.Value) Then
dAccumulator = dAccumulator + .Value
Else
dAccumulator = 0
End If
Application.EnableEvents = False
.Value = dAccumulator
Application.EnableEvents = True
End If
End With
End Sub
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

If .Address(False, False) = "D3,E3,F3,G3,H3,I3,J3,D4,E4
...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