Hi Aaron,

Try:

'=============
Public Function mySum(r As Range) As Double
Dim i As Integer

For i = 1 To r.Rows.Count
If IsNumeric(r(i)) Then
mySum = mySum + r(i)
End If
Next i
End Function
'<<=============


---
Regards,
Norman



wrote in message
ups.com...
Hi,

How can I write a function (such as sum) which could be called on the
result of range operation such as A1:A10/A1:A10.

In other words, I want to call function in the following way:

mysum(A1:A10/A1:A10) Ctrl-Shift-Enter

The following does not work:

Function mysum(r As Range) As Double
Dim i As Integer
pgSum = 0
For i = 1 To r.Rows.Count
pgSum = pgSum + r(i)
Next i
End Function

Many thanks in advance!

Aaron Fude