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 vote181 views1 answer
Excel vba convert text YYYYMMDD to date
VBA
0 vote150 views1 answer
Compare dates vb
VBA
0 vote161 views1 answer
Open file dialog in vb.net
VBA
0 vote144 views1 answer
Vba collection key list
VBA
1 vote156 views1 answer
Excel how to format bytes as KB, MB, GB
VBA
5 votes168 views1 answer
Excel vba second byte from INTEGER
VBA
0 vote146 views1 answer
Vlookup columns not next to each other
VBA
0 vote157 views1 answer
Vba array dimensions
VBA
0 vote146 views1 answer
Vb streamreader
VBA
0 vote168 views1 answer
Vba search string position
VBA