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 vote219 views1 answer
Vba option button selected
VBA
0 vote240 views1 answer
Vba registry settings
VBA
0 vote214 views1 answer
How to format a textbox as date vb net
VBA
0 vote212 views1 answer
Compare dates vb
VBA
6 votes229 views1 answer
Excel vba isalpha
VBA
0 vote214 views1 answer
Ribbon show/hide
VBA
0 vote220 views2 answers
Excel vba protect cells with formula
VBA
0 vote212 views1 answer
Make your computer talk vbscript
VBA
0 vote223 views1 answer
Power query M substract minimum value of column -dax
VBA
0 vote210 views1 answer
Nested if else in vb.net
VBA