Function myMax(ParamArray FieldArray() As Variant)
Dim i As Integer
Dim currentVal As Variant
currentVal = FieldArray(0)
For i = 0 To UBound(FieldArray)
If FieldArray(i) > currentVal Then
currentVal = FieldArray(i)
End If
Next i
myMax = currentVal
End Function
Function myMin(ParamArray FieldArray() As Variant)
Dim i As Integer
Dim currentVal As Variant
currentVal = FieldArray(0)
For i = 0 To UBound(FieldArray)
If FieldArray(i) < currentVal Then
currentVal = FieldArray(i)
End If
Next i
myMin = currentVal
End Function