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 vote243 views1 answer
Vba add shape oval
VBA
0 vote232 views1 answer
Excel vba address not absolute
VBA
0 vote250 views1 answer
Vba multiple optional arguments
VBA
0 vote237 views1 answer
Regex numeric digits
VBA
1 vote234 views1 answer
Excel vba make cell visible
VBA
1 vote231 views2 answers
Vba string to date
VBA
3 votes230 views1 answer
Vba make long from two shorts
VBA
0 vote227 views1 answer
Vb net check if file exists
VBA
3 votes242 views2 answers
Vba active workbook path
VBA
0 vote237 views1 answer
Excel vba remove formatting from cell
VBA