Return Largest Value in an Array

[Rob]

i have an array ARRAY(10). The array contains different numbers. I would like
to return the largest number in the array to another variable LARGEST.

LARGEST = MAX(ARRAY(10))

Something like =Max(1,2,3,4,5)

Unfortunately I have not been able to determine how to use the MAX math
function to in VBA or if it can be used on an array.

Thank you for your help.

 

[carlo]

Loop through your array

YourArray = Array(1, 2, 3, 4, 5, 6, 5, 4, 3, 2, 1)

For Each arr In YourArray
If largest < arr Then largest = arr
Next arr

hth

Carlo

PS: Maybe there is a shortcut...but at least it works.

 

[Dave Peterson]

One shortcut would be to use Excel's =max() worksheet function:

Option Explicit
Sub testme()
Dim YourArray As Variant
YourArray = Array(1, 2, 3, 4, 5, 6, 5, 4, 3, 2, 1)
MsgBox Application.Max(YourArray)
End Sub

 

[Rob]

Thanks works great!

Loop through your array

YourArray = Array(1, 2, 3, 4, 5, 6, 5, 4, 3, 2, 1)

For Each arr In YourArray
If largest < arr Then largest = arr
Next arr

hth

Carlo

PS: Maybe there is a shortcut...but at least it works.