Maybe putting a:

Msgbox oCell.text
or
msgbox oCell.Value
right above would help debug the problem

And what version of excel are you running.

IIRC, xl97 had problems comparing text with numbers (but I could be
misremembering).

Maybe:

If isnumeric(ocell.value) = false then
'skip it
else
'....


Robert Brydges wrote:

The line
Case Is < 1
gets illuminated.
But the identical code works fine for the first two ranges??

--

Dave Peterson