Resume Next

[schopf86]

Hey everyone,

I am having some trouble with this one. I am finishing up a very large VBA. There are three instances where I select a column, search for a particular word (i.e.- "MOVE") and select that cell.

That works perfect. The problem is when the word is not found. Once in a while, that type of record will not be present. So I need to make it possible that if Run-Time error 91 shows up due to now finding the word, it needs to ignore it and move further down the code to a new point.

Without showing the VBA, the basics are that I have a Cells.Find(abc).Select followed by the process it takes once selected. After that, it moves to a new area. I want it to ignore the error if the Cells.Find(abc) does not find abc and simply move on to the next area (skipping the process once abc would be found otherwise).

I have tried On Error Resume Next and entered Resume Next at the point in which I want the VBA to continue. But instead of moving down to resume next, the code is simply ignoring the the error and selecting a whole bunch of data I do not want selected.

Help please!!!!

 

[wigi]

Hello

Welcome to MrExcel.

Have a look here:

Sub Searching()

    Dim rngFoundCell As Range
    
    Set rngFoundCell = Cells.Find(abc) 'adjust
    
    If rngFoundCell Is Nothing Then
    
        'search value was not found
        
    Else
    
        'search value was found - the variable rngFoundCell refers to that range
    
    End If
    
    Set rngFoundCell = Nothing

End Sub

 

[schopf86]

You are my hero!

I have been playing around with something similar but had missed a key part... You answered it exactly and it works perfect! thank you so much wigi!

Kevin