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 vote202 views1 answer
VBA Loop through recordset
VBA
0 vote189 views1 answer
Returns an array from function vba
VBA
0 vote205 views1 answer
Create links in msgbox in vb
VBA
1 vote213 views1 answer
How to remove zeros in excel
VBA
0 vote202 views1 answer
Vba string
VBA
1 vote145 views1 answer
Vba Remove Case Sensitivity
VBA
0 vote196 views1 answer
Vbs write file
VBA
0 vote203 views1 answer
Excel run macro every 5 minutes
VBA
0 vote200 views1 answer
Vba full date format
VBA
0 vote207 views1 answer
Vba get workbook name
VBA