excel vba min function
'VBA function to find the minimum value from a list:
Function Min(ParamArray vals())
Dim i&
If UBound(vals) > -1 Then
Min = vals(0)
For i = 1 To UBound(vals)
If vals(i) < Min Then Min = vals(i)
Next
End If
End Function
'------------------------------------------------------------------------------
MsgBox Min(7, 2, 0, 5.9, 8, 4.75) '<--dsiplays: 0
'Note: the MIN() worksheet function is also available but requires the
'slow call to the worksheet calcuation engine:
MsgBox WorksheetFunction.Min(7, 2, 0, 5.9, 8, 4.75)