senario:

I enter a value manually into a cell. At some point later, I want to add
another value to that cell manually, or many times after that. I want the
cell to total the new and added values.

Thanks

Option Explicit

Private nVal
Const WS_RANGE As String = "L15"

Private Sub Worksheet_Change(ByVal Target As Range)

On Error GoTo ws_exit:
Application.EnableEvents = False
If Not Intersect(Target, Me.Range(WS_RANGE)) Is Nothing Then
With Target
.Value = .Value + nVal
End With
End If

ws_exit:
Application.EnableEvents = True
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Me.Range(WS_RANGE)) Is Nothing Then
nVal = Target.Value
End If
End Sub

'This is worksheet event code, which means that it needs to be
'placed in the appropriate worksheet code module, not a standard
'code module. To do this, right-click on the sheet tab, select
'the View Code option from the menu, and paste the code in.

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Tony" wrote in message
...
senario:

I enter a value manually into a cell. At some point later, I want to add
another value to that cell manually, or many times after that. I want the
cell to total the new and added values.

Thanks

Let's say you have 3245 in cell A1 and want to add 10 to it. You would like
to then see 3255 in the cell.

In an un-used cell put 10. Copy the cell. Select A1 and paste/special with
the add checked.

If you select an entire group of cells and paste/special with the add
checked, Excel will add 10 to all the cells you have selected.
--
Gary's Student


"Tony" wrote:

senario:

I enter a value manually into a cell. At some point later, I want to add
another value to that cell manually, or many times after that. I want the
cell to total the new and added values.

Thanks