right click sheet tabview codeinsert thismodify a10 to your cellSAVE

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address < "$A$10" Then Exit Sub
Target.Offset(, 1) = Target.Offset(, 1) + Target
End Sub


--
Don Guillett
SalesAid Software

"ED" wrote in message
...

Every month I have to change the sales amount in my worksheet. I would
like this amount to be added automatically to the total for the year sales
amount in the next cell. Is this possible?