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 vote268 views1 answer
Excel vba formatconditions range
VBA
0 vote243 views1 answer
How to self delete a vbscript file
VBA
2 votes282 views2 answers
Excel vba copy values range to another range
VBA
0 vote276 views1 answer
Excel vba scroll to cell
VBA
0 vote279 views1 answer
Vba line feed
VBA
1 vote289 views1 answer
How to INPUT text in shape with enter and spacein vba
VBA
0 vote269 views1 answer
Vba loop through table
VBA
5 votes327 views1 answer
Excel vba left word from Long Integer
VBA
0 vote276 views1 answer
Vba word open document read only
VBA
31 votes385 views1 answer
Excel-vba how to convert a column number into an excel column
VBA