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

5 votes387 views1 answer
Excel vba right word from Long Integer
VBA
0 vote380 views1 answer
Excel vba first column in range
VBA
0 vote352 views2 answers
Vba remove line breaks
VBA
0 vote344 views1 answer
Vbs
VBA
6 votes386 views1 answer
Excel vba check if a string only contains letters
VBA
0 vote340 views1 answer
Vlookup columns not next to each other
VBA
0 vote363 views1 answer
Vb ternary
VBA
1 vote368 views1 answer
How to INPUT text in shape with enter and spacein vba
VBA
0 vote361 views1 answer
VB Error Code BC30201
VBA
1 vote377 views1 answer
Set font for ms chart vb.net
VBA