Create simplified function

[sassora]

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

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

Thanks R

[sassora]

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

[Bob Phillips]

Is this what you want

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

[sassora]

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

[sassora]

Here is the solution that seems to work, thanks XLD

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

[Bob Phillips]

Oops, what a plonker (me!)