use a UDF (User Defined Function)

eg


Option Explicit

Function MySumProduct()

MySumProduct =
Evaluate("=SUMPRODUCT((Data!$N$5:$N$10000=$S11)*(B ase!$L$5:$L$10000=""COST"")*(Base!$I$5:$I$10000))" )

End Function

in your sheet, select a cell and type
=MySumProduct()





"MavenDog" wrote:


I have an Excel 2003 spreadsheet with the following cell formula:

SUMPRODUCT((Data!$N$5:$N$10000=$S11)*(Base!$L$5:$L $10000="COST")*(Base!$I$5:$I$10000))

The column of $S11 is about 500 rows.

I have an aversion to cell formulas and would like to carry out this
computation with a Macro. Is there an existing macro routine that does this
same type of calculation?