Hi All, I have this code...
The code is working in that it finds the first instance of strFindMe, Does everything i want it to do.. When it loops it then finds the same first instance and not the next.. Any ideas why?? Any Help would be appreciated.
Dim rgFoundCell As Range Const strFindMe As String = "Select Seprations" Application.ScreenUpdating = False With Sheet5 Set rgFoundCell = .Range("F:F").Find(what:=strFindMe) Do Until rgFoundCell Is Nothing Set rRange = rgFoundCell.Offset(1) If rRange.Value = "No" Then..............................Doing things in here Set rgFoundCell = .Range("F:F").FindNext Loop End With End Sub
This question generated 13 answers. To proceed to the answers, click here.
This thread is current as of November 02, 2014.