I have two functions from one of the threads in MrExcel forum.
Function Mini(ParamArray values() As Variant) As Variant
Dim minValue, Value As Variant
minValue = values(0)
For Each Value In values
If Value < minValue Then minValue = Value
Next
Mini = minValue
End Function...