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 vote154 views1 answer
Find if year is leap year vb
VBA
0 vote134 views1 answer
Excel vba join variant array
VBA
9 votes263 views2 answers
Excel vba convert 2 Short integers to a Long integer
VBA
0 vote133 views1 answer
Type excel.application is not defined vb
VBA
5 votes141 views1 answer
Excel vba high word from Long Integer
VBA
0 vote160 views1 answer
Excel vba move down to next visible cell
VBA
4 votes148 views1 answer
VBA Deep Clone Dictionary
VBA
0 vote137 views1 answer
Vb check if row has column
VBA
0 vote152 views1 answer
Vba registry settings
VBA
0 vote167 views1 answer
Visual basic run command
VBA