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 vote199 views1 answer
Excel vba formatconditions positive
VBA
31 votes419 views1 answer
Vba how to convert a column number into an Excel column
VBA
0 vote197 views1 answer
Return na vba
VBA
0 vote184 views1 answer
Vba full date format
VBA
3 votes198 views1 answer
Vba post request json
VBA
0 vote188 views1 answer
Excel vba linter
VBA
0 vote187 views1 answer
Returns an array from function vba
VBA
0 vote209 views1 answer
Vba vbcrlf chr
VBA
0 vote191 views4 answers
How to continue formula in below line in vba code
VBA
0 vote190 views1 answer
Vba file chooser
VBA