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 vote306 views1 answer
Vba open report
VBA
0 vote319 views1 answer
Vba boolean to string
VBA
0 vote284 views1 answer
Label de tableau dans des label.text en VBA
VBA
5 votes351 views1 answer
Vba low byte from INTEGER
VBA
0 vote310 views1 answer
Test if form is open vb
VBA
1 vote274 views2 answers
Vba remove first 2 characters from string
VBA
2 votes236 views1 answer
Excel vba pause
VBA
1 vote307 views1 answer
How to remove zeros in excel
VBA
8 votes334 views1 answer
Run command pormpt in background windows
VBA
0 vote307 views1 answer
Find database connection string vb
VBA