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 vote212 views1 answer
Vba exit while
VBA
0 vote213 views1 answer
Refresh token em vb net
VBA
8 votes283 views1 answer
Excel vba make word
VBA
0 vote252 views1 answer
Vbs run with cscript
VBA
0 vote233 views1 answer
Remove series name from legendvbnet
VBA
0 vote214 views1 answer
Vba first line of string
VBA
0 vote270 views1 answer
Excel vba delete columns in range
VBA
0 vote235 views1 answer
Excel vba textbox forecolor disabled
VBA
2 votes207 views1 answer
Vba uppercase first letter of each word
VBA
0 vote235 views1 answer
Excel vba prevent saving workbook
VBA