Excel VBA - my findnext in my selcted range is not working <p>hello if there is any who can help with this issue</p> <p>I have a range of groups 1 to many (up to 12 rows - one row after an other per group) the initial part of the string as repeated I do not know how time they are repeated but ever time they are I need extract the relevant data which is everything after the repeated string. Now not all 12 row are in the group sometimes there are 11 or less but they are no blank rows in the group of data so what I do is once I find my header row I call a subroutine to go through the block of data and do my extraction, but when I get back and use the .findnext(v) it will not go to the next header</p> <pre><code> With big_rng ' this is column A selected Set v = .Find("Submarket:", LookIn:=xlValues, LookAt:=xlPart) If Not v Is Nothing Then firstAddress = c.Row Do Call this1(need, c.Row, tech, daily_date) Set v = .FindNext(v) need = need + 1 Loop While Not c Is Nothing And c.Address &lt;&gt; firstAddress End If End With </code></pre> <p>When I call this1 what I am doing is selecting another range because I do not know if my data is in the correct order I use another selection </p> <pre><code> Cells(i, 1).Select ' I know which row my group starts and I select down Range(Selection, Selection.End(xlDown)).Select ' check for substrings and copy across if the substring exists e.g. With Selection Set d = .Find("Degradation =", LookIn:=xlValues, LookAt:=xlPart) If Not d Is Nothing Then spos = InStrRev(Cells(d.Row, 1), "=") If Mid(Cells(d.Row, 1), spos + 1, 1) = " " Then output_sht.Cells(n, 5) = Right(Cells(d.Row, 1), Len(Cells(d.Row, 1)) - (spos + 1)) Else output_sht.Cells(n, 5) = Right(Cells(d.Row, 1), Len(Cells(d.Row, 1)) - spos) End If Else output_sht.Cells(n, 5) = "Error in Data" End If </code></pre> <p>when this Sub end my original selection is gone (it was column A:A), and my .findnext(v) gives me the last row of the previous group not the first row of the next group if one exists</p> <p>how do I loop via findnext whilst keeping my original selection in tact</p> <p>Thank you in advance</p> <p>Robert</p>