GS formulated the question :
Set rng = .Range("$O:$O").Find(what:=vVal)

Change the above line (in the loop) to:

Set rng = .Range(sRngSection2).EntireColumn.Find(what:=vVal)

...so it doesn't need to be revised to suit.

--
Garry

Free usenet access at http://www.eternal-september.org
ClassicVB Users Regroup! comp.lang.basic.visual.misc