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 vote373 views1 answer
How to get the value of optionbutton in vba
VBA
2 votes384 views1 answer
Excel vba check if string entirely alpha
VBA
0 vote396 views1 answer
Como ler subitem de um array em json usando vbnet
VBA
1 vote350 views1 answer
Excel date to unix timestamp
VBA
0 vote356 views1 answer
Vbs send keys
VBA
1 vote344 views1 answer
If inputbox cancel vba
VBA
1 vote366 views1 answer
Vb.net get name by Selection Changed
VBA
2 votes366 views2 answers
Excel vba copy values range to another range
VBA
0 vote385 views1 answer
Nested if else in vb.net
VBA
0 vote418 views1 answer
Filesystemobject vba reference
VBA