Function fMin(r As Range)
Dim cel As Range
For Each cel In r
If InStr(cel.NumberFormat, "$") > 0 Then
If IsEmpty(fMin) Then fMin = cel.Value
If cel.Value < fMin Then fMin = cel.Value
End If
Next cel
End Function
Give this a shot.
VBA Code:Function fMin(r As Range) Dim cel As Range For Each cel In r If InStr(cel.NumberFormat, "$") > 0 Then If IsEmpty(fMin) Then fMin = cel.Value If cel.Value < fMin Then fMin = cel.Value End If Next cel End Function
Function fMin(r As Range)
Dim cel As Range
For Each cel In r
If InStr(cel.NumberFormat, "$") > 0 Then
If IsEmpty(fMin) And cel.Value > 0 Then fMin = cel.Value
If cel.Value < fMin And cel.Value > 0 Then fMin = cel.Value
End If
Next cel
End Function