Thank you Garry, but my cases are Alphas, not Numerics. "<063",
"304", "386" etc... .
Not correct!
Your cases are 'numeric text', not alphas!
Will the following statement change to handle Alphas ?
Select Case CLng(.Range("A2:A" & LRow).Value)
.
Thank you for your help.
J.P.
Yes, it adapts your 'numeric text' so the Select Case works properly.
Note that this will only work if your value are 'numeric text', meaning
no alpha characters allowed.
--
Garry
Free usenet access at
http://www.eternal-september.org
Classic
VB Users Regroup!
comp.lang.basic.visual.misc
microsoft.public.
vb.general.discussion