personal Excel function 1

[iamapollo]

Hi

I would like to build a function similar to the Min function that finds the minimum of a set of numbers excluding zeros. What I am unsure of is how to pass in a cell reference of the type a3:g3 like if you were using the actual min function. Would you pass this in as a variant and then access like an array?

Thanks for any help

Michael

 

[ide]

inser a new module and this code on it
Public Function fnMin(rngIn As Range)
Dim i As Range, myMin
For Each i In rngIn
If Not IsError(i.Value) Then
If i.Value <> &quot;&quot; And (i.Value < myMin Or IsEmpty(myMin)) Then myMin = i.Value
End If
Next i
fnMin = myMin
End Function
'***************************************************************************

you can pass the reference to your function as a range
ide