Vba min

Sub TestMe()
    Dim v(9), i As Byte
    For i = 0 To 9
        v(i) = Int(50 * Rnd) + 1
    Next i
    MsgBox Application.WorksheetFunction.Min(v)
    MsgBox Application.WorksheetFunction.Max(v)
    ' Shorter:  Application.Min(v)    Application.Max(v)
End Sub

Similar codes

0 vote193 views1 answer
System.InvalidOperationException: 'Row associated with the currency manager's position cannot be made invisible.
VBA
1 vote189 views2 answers
Get all column names from excel vba
VBA
0 vote199 views1 answer
Vba sort the data Z to A
VBA
0 vote250 views1 answer
Vba array of integers
VBA
1 vote183 views1 answer
How to check is the value enterd is a number or text in vba
VBA
0 vote180 views1 answer
Excel vba assign shortcut key to button
VBA
0 vote205 views1 answer
Tester si une case est vide vba
VBA
3 votes175 views1 answer
Vba request json
VBA
0 vote206 views1 answer
Columns dont autoresize on program start vb.net
VBA
0 vote182 views1 answer
Sendkeys vba selenium
VBA