On Fri, 9 Dec 2005 07:34:03 -0800, "Jim May"
wrote:

Ron:
Thanks so much for the explanation. I tried everything you recommended,
(even the expanded code - This time on my AT-WORK PC - Orig is on my Home
PC);But all without success. Looks like time to
"we'll have to debug the code on your machine, to see
where it's going wrong" << I even (already) set the Breakpoints as you
suggest <<before End Function, but get no unusual results.
Hummmmm....
Tks,
Jim

When you write "get no unusual results" do you mean that the code stopped at
each breakpoint, or not?

If it did stop at each breakpoint, after this line:

MinNum = Application.WorksheetFunction.Min(rg)

has been executed (in other words, when the code has stopped on the following
line), float your cursor over the MinNum and see what the value is.

If it says MinNum=0, then the problem is that the values in rg are text.

If you manually entered those values, then possibly the cells were formatted as
text before you entered your values (and changing the format will not change
this).

If the contents are the result of a formula, then we should look at the
formula.

If the contents were imported from an html document, web page, or some other
database, then we should determine what, exactly, is in there so as to clean it
up in the simplest fashion.


--ron