this function (it's not mine) crashes when array size is very large (> 32768).
Public Function GetArrayMinxMax(arrintArray() As Integer,
intArrayUpperBound As Long) As String
Dim intMin As Integer
Dim intMax As Integer
Dim intLoop As Integer
intMin = 5000
intMax = 0
For intLoop = 0 To intArrayUpperBound
If arrintArray(intLoop) > intMax Then intMax = arrintArray(intLoop)
If arrintArray(intLoop) < intMin Then intMin = arrintArray(intLoop)
Next intLoop
End Function
