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