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 vote382 views1 answer
Visual basic cmd
VBA
2 votes266 views1 answer
Excel vba pause
VBA
0 vote351 views1 answer
Vba nested dictionary
VBA
0 vote324 views1 answer
Vba table header name
VBA
0 vote312 views1 answer
Excel vba delete folder
VBA
0 vote319 views2 answers
Do until loop vba
VBA
0 vote321 views1 answer
Vbnet hex to binary
VBA
0 vote337 views1 answer
Vbnet check if string is only letters
VBA
0 vote307 views1 answer
Vb streamreader
VBA
5 votes301 views1 answer
Vba array worksheet.index
VBA