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 vote323 views1 answer
VBA OR vb6 find OR replace string from the end
VBA
0 vote297 views1 answer
Vb window.minimize
VBA
2 votes296 views1 answer
Vba array contains
VBA
0 vote309 views1 answer
Excel vba formatconditions positive
VBA
0 vote325 views1 answer
Excel vba protect worksheet without password
VBA
0 vote316 views1 answer
Excel vba Column Name to Column Number
VBA
0 vote309 views1 answer
Limit combobox to list vba
VBA
0 vote315 views1 answer
Selecttoken em vbnet e json
VBA
5 votes320 views1 answer
Excel vba highlight cells using the hex color value within the cells
VBA
0 vote331 views1 answer
Vba is integer
VBA