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

8 votes500 views1 answer
Vba make a short integer from two bytes
VBA
2 votes223 views2 answers
Vba code to remove duplicates from a column
VBA
0 vote218 views1 answer
Vbnet line graph smooth lines
VBA
0 vote216 views2 answers
Excel vba prevent save
VBA
1 vote237 views1 answer
Export datagridview to excel vb.net
VBA
12 votes502 views1 answer
Excel vba write string to text file
VBA
1 vote229 views1 answer
Excel vba first and last row and column in range
VBA
1 vote236 views2 answers
Excel vba password protect
VBA
0 vote247 views1 answer
How to make a a msgbpx in vbs
VBA
2 votes213 views2 answers
Constructor vb.net
VBA