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 vote132 views1 answer
Excel vba array remove first
VBA
5 votes148 views1 answer
Excel vba get low byte from INTEGER
VBA
7 votes147 views1 answer
Excerl vba array to range
VBA
0 vote124 views1 answer
Vba get workbook name
VBA
22 votes252 views1 answer
Excelvba check for directory
VBA
0 vote128 views1 answer
Method showalldata of object _worksheet failed vba
VBA
1 vote130 views1 answer
Vbs run
VBA
0 vote111 views1 answer
Vba dropdown event
VBA
1 vote130 views1 answer
Excel vba first and last row and column in range
VBA
0 vote127 views1 answer
Excel vba automatic calculation
VBA