Max Element Of Array

[robertx]

I need a function which, when passed a long array, returns the highest element.

[mendhak]

You mean

dim j as integer
j = UBound(arrayname)
debug.print arrayname(j)


?

[robertx]

No. I meant the highest value not subscript. It's Ok. I found what I was looking for in a previous thread.

[mendhak]

(Ned Flander's impression)
Okilley Dokilley
(/Ned FLander's impression)

[klori]

Try this function:

Private Function MaxElement(a())
el = LBound(a)
Max = a(el)
For i = LBound(a) To UBound(a)
If a(i) > Max Then
Max = a(i)
el = i
End If
Next
MaxElement = el
End Function