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 vote262 views1 answer
Vba sort multiple columns
VBA
1 vote222 views1 answer
Excel vba Populating a combobox on a userform from a range of cells
VBA
0 vote246 views1 answer
Reference to a non-shared member requires an object reference
VBA
0 vote235 views2 answers
Vb.net include quotes in string
VBA
0 vote217 views1 answer
Change "location" of binding navigator vb
VBA
0 vote227 views1 answer
Send webhook vbscript
VBA
1 vote226 views1 answer
Vba compile error object required
VBA
0 vote222 views1 answer
Vbnet add new ecel sheet
VBA
0 vote253 views1 answer
Excel vba protect shapes
VBA
9 votes516 views2 answers
Excel vba convert 2 Short integers to a Long integer
VBA