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 votes232 views1 answer
Excel vba get user selected range
VBA
0 vote225 views1 answer
Find if year is leap year vb
VBA
0 vote208 views1 answer
Vbnet revrese the order of character in string
VBA
1 vote201 views2 answers
Vba find last row in range for certain criteria
VBA
0 vote200 views1 answer
Excel vba existence of a file
VBA
0 vote198 views1 answer
Vbnet dynamically change excel sheet name
VBA
0 vote201 views1 answer
Vba shape transparent
VBA
13 votes477 views2 answers
Vba write text file
VBA
4 votes221 views1 answer
Excel vba Imitating the "IN" operator from python
VBA
0 vote200 views1 answer
Vba add spaces
VBA