Just be warned.............you will have no "paper trail" for error checking.


Gord Dibben MS Excel MVP

On Thu, 4 Oct 2007 07:18:00 -0700, tgivin
wrote:

Exactly what I needed. Thanks

"Don Guillett" wrote:

Right click sheet tabview codeinsert this
Private Sub Worksheet_Change(ByVal target As Range)
Application.EnableEvents = False
If target.Address = "$E$4" And IsNumeric(target) Then _
Range("f4").Value = Range("f4") + target
Application.EnableEvents = True
End Sub

And, if you want e4 to change when you change e4

Option Explicit
Dim oldvalue As Double

Private Sub Worksheet_Change(ByVal target As Excel.Range)
If target.Address = "$E$4" Then
On Error GoTo fixit
Application.EnableEvents = False
If target.Value = 0 Then oldvalue = 0
target.Value = 1 * target.Value + oldvalue
oldvalue = target.Value
fixit:
Application.EnableEvents = True
End If
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"tgivin" wrote in message
...
I am trying to add any changes to E4 to F4 as a running total. I want F4 to
keep adding to itself any thing put in E4.

Thanks for any help with this.

Tray