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

5 votes179 views1 answer
Excel vba right word from Long Integer
VBA
0 vote176 views1 answer
Programmatically copy data from one workshet to another excel
VBA
0 vote162 views1 answer
Vb net dgv doesn't keep currency format
VBA
0 vote168 views1 answer
Show unix time in vba
VBA
0 vote159 views1 answer
Vba like with wildcard
VBA
0 vote167 views1 answer
Combobox dropdown search visual basic -excel -C#
VBA
0 vote162 views1 answer
Vbnet access System.InvalidOperationException: 'Update requires a valid UpdateCommand when passed DataRow collection with modified rows.'
VBA
2 votes149 views2 answers
Constructor vb.net
VBA
22 votes310 views1 answer
Excel vba check if directory exists
VBA
0 vote159 views2 answers
Excel vba close without saving
VBA