Conrad -- something like this ...


Sub AddMore()

With Worksheets("MySheet").Range("A1")

.Value = .Value + 1

End With

End Sub


--

Hope it Helps,

- Rodney POWELL
Microsoft MVP - Excel

Beyond Technology
Spring, Texas USA
www.BeyondTechnology.com



"conrad" wrote in message ...
I am working on a basic worksheet. I have several numbers which I have to
add additional number to in that cell. I want the cell to reflect the total
and the display of the cell contents to list the individual numbers added.