Summation of the Cells

[a_k93]

Hi there,

I want to sum up the value of the cell A1, A2, A3 and A4 in cell C1
this is done,
by the following
In the Worksheet_change Event
c1.value = application.worksheetfunction.sum(a1,a2,a3,a4)

User is allowed to enter value in c1 cell directly. If user enter
value in C1 cell directly, at

that time I want the Cell A1, A2, A3 and A4 should become 0.
Again if the user enters in any of the cells (a1, a2, a3, a4) then c
value should get

overwritten by the summation of the 4 cells.

your help is appreciated
thanx in advance,
a_k9

 

[Guest]

In the sheet itself place this code (Right click the sheet tab and select
view code)

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ErrorHandler
Application.EnableEvents = False
If Not (Intersect(Target, Range("A1:A4")) Is Nothing) Then
Range("C1").Value = Application.Sum(Range("A1:A4"))
ElseIf Target.Address = "$C$1" Then
Range("A1:A4").Value = 0
End If
ErrorHandler:
Application.EnableEvents = True
End Sub