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

1 vote241 views1 answer
Excel vba unload userform
VBA
0 vote263 views1 answer
Method showalldata of object _worksheet failed vba
VBA
0 vote253 views1 answer
Vba sheet hide unhide
VBA
0 vote231 views1 answer
Remove frist letter from string vbnet
VBA
0 vote261 views1 answer
Vbnet round to nearnest thousand
VBA
0 vote242 views1 answer
Limit combobox to list vba
VBA
0 vote237 views1 answer
Compare dates vb
VBA
0 vote253 views1 answer
Excel named range sum
VBA
0 vote268 views1 answer
Move bindingnavigator vb
VBA
0 vote243 views1 answer
Make all controls in an area not visable vb
VBA