WorksheetFunction.Match(max, arr, False)

Example
Sub test()

Dim ar(1 To 5) As Long
Dim i As Long
Dim max As Long
For i = 1 To 5
ar(i) = Int(Rnd * 1000)
Next
max = Application.WorksheetFunction.max(ar)
Debug.Print max; " @ "; _
WorksheetFunction.Match(max, ar, False)

End Sub


Patrick Molloy
Microsoft Excel MVP
-----Original Message-----
Dim Arr(5) as integer

Arr(2) = 99
Arr(3) = 101

How do I then find out what the maximum value is, and
what position it¹s at
in this type of array * i.e. for the above, the maximum
is 101, at position
3.

I¹ve had success with

Application.WorksheetFunction.Large(Arr, 1)

But still can¹t get the position of that number.

I¹m attempting this with an array that is 1000 in size
if that¹s going to
be a problem ...

Thanks,

Brad.)