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 vote187 views1 answer
Excel vba protect sheet
VBA
3 votes170 views1 answer
Excel vba export sheet as a csv without losing focus of my current workbook
VBA
0 vote195 views1 answer
Vba listbox remove all items
VBA
0 vote179 views1 answer
Vba extract filename from path
VBA
0 vote169 views1 answer
Vbnet check if string is only numbers
VBA
8 votes198 views1 answer
Excel vba determine number of elements in a 2D array
VBA
0 vote181 views1 answer
Excel vba calculate
VBA
4 votes166 views2 answers
Vba array length
VBA
0 vote257 views1 answer
Vba change active sheet
VBA
1 vote171 views1 answer
Excel format cell as kilowatts
VBA