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

4 votes132 views1 answer
Excel vba how to reset usedrange
VBA
8 votes210 views1 answer
Excel vba determine number of elements in a 2D array
VBA
0 vote138 views1 answer
Vbnet round to nearnest thousand
VBA
0 vote142 views1 answer
Excel filter by date not working vba
VBA
0 vote140 views1 answer
Vba dictionary clear
VBA
0 vote126 views1 answer
Excel vba address not absolute
VBA
0 vote136 views1 answer
Vba format currency
VBA
0 vote127 views1 answer
Vb net show lines for all axis labels in chart
VBA
0 vote129 views1 answer
Vb net dgv doesn't keep currency format
VBA
0 vote134 views1 answer
Discern between file and folder given path vb.net
VBA