right click on the sheet tab and select view code. Paste in code like this:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" Then
If Not IsEmpty(Target) Then
If IsNumeric(Target) Then
Range("A1").Value = Range("A1").Value + _
Range("B1").Value
End If
End If
End If
End Sub

--
Regards,
Tom Ogilvy

"uplink600" wrote
in message ...

Hi

I have a value in cell A1 (Currency) and I want to be able to enter a
value in B1 and have that added to the value in A1. Simple but I want
the new value in A1 to remain even when I delete the value in B1 and
for A1 to be updated every time I enter a value in B1

Please advise an easy way to do this.

Thanks

VC


--
uplink600
------------------------------------------------------------------------
uplink600's Profile:
http://www.excelforum.com/member.php...fo&userid=9408
View this thread: http://www.excelforum.com/showthread...hreadid=390521