Mega Code Archive
A function with a range argument
<![CDATA[
=TopAvg(Data,5)
Function TopAvg(InRange, N)
Dim Sum As Double
Dim I As Long
Sum = 0
For i = 1 To N
Sum = Sum + Application.WorksheetFunction.LARGE(InRange, i)
Next i
TopAvg = Sum / N
End Function
]]>