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 vote182 views1 answer
Windows Forms dark title bar
VBA
1 vote181 views1 answer
Excel how to format bytes as KB, MB, GB
VBA
0 vote185 views1 answer
Vba loop through textboxes
VBA
3 votes170 views1 answer
Excel vba read registry key value
VBA
0 vote174 views2 answers
Excel vba close without saving
VBA
1 vote171 views1 answer
VBA Loop through recordset
VBA
0 vote185 views1 answer
Write listbox to text file vb.net
VBA
1 vote177 views1 answer
Excel vba Refreshing all pivot tables in workbook
VBA
1 vote163 views1 answer
How to do error handling in access vba
VBA
0 vote181 views1 answer
VB Error Code BC30201
VBA