GS explained :
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.

Actually, that's way too slow so revise further as follows...

Set rng = .Range(sRngSection2).Cells(1).EntireColumn.Find(wh at:=vVal)

--
Garry

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