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 vote168 views1 answer
Vba range clear formatting
VBA
0 vote159 views1 answer
Excel vba scroll to cell
VBA
0 vote167 views1 answer
Como ler subitem de um array em json usando vbnet
VBA
0 vote168 views1 answer
Remove first character from string vb
VBA
0 vote166 views1 answer
Sort dictionary by key vba
VBA
1 vote170 views1 answer
Set font for ms chart vb.net
VBA
0 vote170 views1 answer
Excel delete ever other vba
VBA
0 vote163 views1 answer
Excel vba cell on change
VBA
5 votes192 views1 answer
Excel vba get user selected range
VBA
1 vote172 views1 answer
Vbs run
VBA