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 vote118 views1 answer
Vb window.minimize
VBA
4 votes110 views2 answers
Vba array length
VBA
0 vote115 views1 answer
Vba dropdown event
VBA
0 vote122 views1 answer
Excel text to columns line break
VBA
1 vote115 views1 answer
Excel format cell as kilowatts
VBA
1 vote116 views1 answer
Excel vba to lower case
VBA
5 votes125 views1 answer
Excel formula how to create strings containing double quotes
VBA
7 votes119 views1 answer
Excerl vba array to range
VBA
5 votes131 views1 answer
Excel-vba get integer high byte
VBA
0 vote126 views1 answer
Vbscript remove spaces from string
VBA