Hello,

Function myrate(rcond, _
rweight, _
rsum, _
scond As String) As Double
'Reverse(moc.liborplus.www) V0.1
Dim i As Long, n As Long, rcomp

With Application.WorksheetFunction
n = rcond.Count
rcomp = rsum
For i = 1 To n
rcomp(i, 1) = -(rcond(i).Value = scond)
Next i

myrate = .SumProduct(rcomp, rweight, rsum) / _
.SumProduct(rcomp, rweight)
End With

End Function

Regards,
Bernd