Excel: Help with VBA loop


Hi All, I have this code...

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
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.


This question generated 13 answers. To proceed to the answers, click here.

This thread is current as of November 02, 2014.


For more resources for Microsoft Excel