Set fn = Application.WorksheetFunction
Set SumRange = Range("A1:A50")
fn.Sum (SumRange)
Thank you for your quick response but what I'm trying to do is write a User Defined Function, not call a Worksheet Function within a procedure. I think that the SUM Function script would be a good point of reference. Any suggestions?
Thank you for the reference. You should minimally receive a thank you from from Mr. Walkenbach, if not a commission.
Pages 630-633 of John Walkenbach's book "Excel 2000 Formulas" provides the code for a function that emulates the SUM function.
Celia