Robert,

Put the following code in the code module for the appropriate
worksheet.

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$B$5" Then
Application.EnableEvents = False
Range("E5").Value = Range("E5").Value + Target.Value
Application.EnableEvents = True
End If

End Sub


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com





"RobertLees"
wrote
in message
...

When a value is entered into, say, cell B5, I want that value
to be
added to, say, E5. I could do this by attaching a macro to a
shortcut
key, or preferably when the cell loses focus.

Any ideas ?

Thanks
Robert


--
RobertLees
------------------------------------------------------------------------
RobertLees's Profile:
http://www.excelforum.com/member.php...o&userid=26580
View this thread:
http://www.excelforum.com/showthread...hreadid=533208