=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