The code is as follows:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
With Target
If .Address(False, False) = "A1" Then
If IsNumeric(.Value) Then
Application.EnableEvents = False
Range("B1").Value = Range("B1").Value + .Value
Application.EnableEvents = True
End If
End If
End With
End Sub


" wrote:

Thank you Tom, but there seems to be any problem with this web page as
I can't access it. Though I'll keep trying, do you have any more ideas?