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 vote206 views1 answer
Replace spaces with underscores vbnet
VBA
8 votes534 views1 answer
Excel vba make word from bytes
VBA
0 vote234 views1 answer
Excel vba textbox forecolor disabled
VBA
0 vote287 views1 answer
Excel vba paste all to each sheet in workbook
VBA
0 vote227 views1 answer
Combobox dropdown search visual basic -excel -C#
VBA
0 vote221 views1 answer
Vbscript for loop
VBA
0 vote227 views1 answer
Vba pass named range to function
VBA
0 vote231 views1 answer
Excel delete ever other vba
VBA
0 vote217 views1 answer
Vbnet hex to binary
VBA
0 vote237 views2 answers
Excel vba protect cells with formula
VBA