Create Function like Sum()

[Yap Michael]

Dear All,

Has anyone ever create function like sum() which have parameter in
range? What's parameter type should be used?

Thanks for the help

[Tom Ogilvy]

Public Function MySum(rng as Range) as Double
Dim tot as Double
Dim cell as Range
for each cell in rng
if isnumeric(cell) then
tot = tot + cell.Value
end if
MySum = Tot
End Function

Would be a simple implementation. The correct answer depends on exactly
what you want the function to be able to do.



--
Regards,
Tom Ogilvy



"Yap Michael" <yapmichael2000@gmail.com> wrote in message
news:%23fpFmI$FGHA.344@TK2MSFTNGP11.phx.gbl...
> Dear All,
>
> Has anyone ever create function like sum() which have parameter in
> range? What's parameter type should be used?
>
> Thanks for the help