It could also be written as

Code:
dbl = Evaluate("MIN(IF(" & rng.Address & "<>0," & rng.Address & "))")