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 vote209 views1 answer
Excel vba hide gridlines
VBA
0 vote203 views1 answer
Excel vba chrw max value
VBA
3 votes216 views1 answer
Vba make long from two words
VBA
0 vote214 views1 answer
Set column width of datagridview vb.net
VBA
1 vote188 views1 answer
Vba Remove Case Sensitivity
VBA
0 vote204 views1 answer
Show unix time in vba
VBA
8 votes276 views1 answer
Vba convert 2 bytes to an integer
VBA
0 vote202 views1 answer
Replace spaces with underscores vbnet
VBA
0 vote217 views1 answer
Excel named range sum
VBA
0 vote237 views2 answers
S yyyy-MM-dd em vb net
VBA