Create simplified function

Hi, is there a way of creating a function that can that summarise this array formula?

Code:

---

Function SUMELIG(ByVal rngElig As Range, rngPercentage As Range)
SUMELIG.FormulaArray = "=SUM(IF(ISERROR(rngElig * rngPercentage),0, rngElig))"
End Function

---

Thanks R

The code quoted above doesn't work, any ideas? If there is a better non-vba way to deal with this then that's great.

Thanks

Is this what you want

Code:

---

Function SUMELIG(ByVal rngElig As Range, rngPercentage As Range)
SUMELIG = Application.Evaluate(SUM(IF(ISERROR(" & rngElig.Address & " * " & rngPercentage.Address & "),0, " & rngElig.Address & "))"
End Function

---

Thanks, it seems to be but the second line comes up in red, can you help?

Here is the solution that seems to work, thanks XLD

Code:

---

Function SUMELIG(ByVal rngElig As Range, rngPercentage As Range)
SUMELIG = Application.Evaluate("SUM(If(ISERROR(" & rngElig.Address & " * " & rngPercentage.Address & "),0, " & rngElig.Address & "))")
End Function

---

Oops, what a plonker (me!) :(