S M C
11-30-2011, 03:00 PM
Here's a way to find the minimum value in a range of cells, after excluding zero
Dim rng as range
Set rng = Range("SomeRangeWhichAlsoHasZeroesInIt")
dbl = Evaluate("MIN(IF(" & rng.Address & "=0,""""," & rng.Address & "))")
Dim rng as range
Set rng = Range("SomeRangeWhichAlsoHasZeroesInIt")
dbl = Evaluate("MIN(IF(" & rng.Address & "=0,""""," & rng.Address & "))")