Sure, but you haven't said what the multiple cells are.

For column E, rows 2 to 10

Private Sub Worksheet_Change(ByVal _
Target As Excel.Range)
Dim rng as Range
If Target.Count 1 Then Exit Sub
If Target.row = 2 and Target.Row <=10 then
If Target.column = 5 Then
If Not IsEmpty(Target) Then
If IsNumeric(Target) Then
Application.EnableEvents = False
set rng = Target.Offset(0,4)
rng.Value = rng.value + Target.Value
Target.ClearContents
Application.EnableEvents = True
End If
End If
End If
End If
End Sub

--
Regards,
Tom Ogilvy


"Carl Johnson" wrote in message
...


Tom, one last question. Can I alter the code in a way that will allow
the code to work in multible cells without having to write the code for
each cell.

Thank you again
Carl

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!