"Sum" function as Macro

[orenfarhi]

I've finally got it :

Code
-------------------
Sub sumf()
'simulation of sum function
S = 0
x = ActiveCell.Row()
x = x - 1
For i = x To 6 Step -1
If Cells(x, 6) <> 0 Then
S = S + Cells(x, 6).Value
Else
S = S
End If
Next i
[sumall] = S
ActiveCell.FormulaR1C1 = "=SUM(sumall)"
End Sub

-------------------


but, if i change a value it doesn't change the sum automatically.
would have to run the code once again.
Any ideas???
thanks

 

[Simon Lloyd]

put it in the sheet(s) where you want it to operate and have it as
worksheet selectionchange sub if need be define the range you want i
to work on.

HTH

Simo