Gary''student

Here's the UDfunction, after some close/open file and auto-debug from excel,
this work out for me
'---------------------------------
Function mySP(rng1 As Range, rng2 As Range, dec As Integer) As Double
Dim v As Double, IamTheCount As Long
IamTheCount = rng1.Count
mySP = 0
For i = 1 To IamTheCount
v = Round(rng1.Cells(i, 1).Value * rng2.Cells(i, 1).Value, dec)
mySP = mySP + v
Next
End Function
'-----------------------------
at last my quest is over for the function of sum of rounded products for 2
factors----
-----------------------------
i will post another thread for some more generic/productive
questions---maybe for 3 to 4 more factorial products...

you are always dependable...
more power
driller

"dribler2" wrote:

Thanks Gary,,
I make a new workbook named ''temp.xls''

on sheet 1 tabview codeVBAProject (temp.xls)insert module

on Module 1
I just paste your udf save close

then on sheet1, i place the factors from A1:B3
on cell C1 i click the fx button select category user
definedtemp.xls!Module1.mySP
[unfortunately, there is no formbox] =temp.xls!Module1.mySP()

yet, i still type on C1: =temp.xls!Module1.mySP(A1:A3,B1:B3,2)
the result is #NAME! error.

i may be missing someting, please advice. thanks again..
dribler2