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 vote157 views1 answer
Dynamic array vba
VBA
0 vote177 views1 answer
Excel vba protect shapes
VBA
18 votes328 views2 answers
Vba make word from bytes
VBA
0 vote163 views1 answer
Vba extract filename from path
VBA
1 vote161 views1 answer
Vbscript convert ascii code to character
VBA
32 votes295 views2 answers
Excel vba column letter
VBA
3 votes157 views1 answer
Vba make long from two shorts
VBA
0 vote157 views1 answer
Limit combobox to list vba
VBA
1 vote160 views1 answer
Vba login website
VBA
0 vote126 views1 answer
How to make a if statement with vbs
VBA