Right click on the Sheet Tab and select View Code. Paste in this code in the
resulting module.

Private Sub Worksheet_Change(ByVal Target As Range)
if Target.Address = "$F$3" then
if not isempty(Target) then
range("B3").Value = Range("B3").Value + Range("F3").Value
Range("F3").Clearcontents
end if
End if
End Sub

--
Regards,
Tom Ogilvy


"kurg99" wrote:

I would like to have Excel setup so I can enter a number into F3 that would
be added
to a total in B3...then have the number that was enetered in F3 deleted,
thus leaving
F3 blank and ready for a new entry.

Is this possible and how do I set it up?