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 vote212 views1 answer
Vba like with wildcard
VBA
0 vote236 views1 answer
Default host vbox address
VBA
1 vote218 views1 answer
Vba delete file
VBA
1 vote214 views1 answer
Vba reverse string
VBA
0 vote225 views1 answer
Loop through lines in text file vb net
VBA
0 vote222 views1 answer
Vba boolean to string
VBA
1 vote210 views1 answer
Vba ubound array 2-dimensional
VBA
1 vote223 views1 answer
Add rows to datagridview vb.net
VBA
0 vote268 views1 answer
How to call gcd in vba
VBA
0 vote279 views1 answer
Vba excel do not recalculate before save
VBA