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 vote344 views1 answer
Vba cell all borders
VBA
0 vote328 views1 answer
Remove series name from legendvbnet
VBA
0 vote332 views1 answer
Vba copy file
VBA
0 vote359 views1 answer
Create links in msgbox in vb
VBA
0 vote330 views1 answer
Backspace key has stopped working visual studio
VBA
0 vote406 views2 answers
Excel vba store array and write to sheet
VBA
0 vote372 views1 answer
(SecurityProtocolType)3072 vb.net
VBA
1 vote325 views1 answer
Excel date to unix timestamp
VBA
0 vote350 views1 answer
Nested if else in vb.net
VBA
6 votes366 views1 answer
Excel vba check if a string only contains letters
VBA