Find Method Error

[daniel22bg]

Hello, i have the following piece of VBA code, enclosed at the bottom. I would like to search for a word in the whole row. If the word is found, i would like select and hide the row, if the word is not found, I would like to proceed with the next row.

However, whenever the word is not found, I get and error ... Can you please help? In what way can handle the error situation or the situation where the word is not found in the row?

For i = 3 To k

Rows(i).Select

    Selection.Find(What:=SearchVar, After:=ActiveCell, LookIn:=xlFormulas, _
            LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
            MatchCase:=False, SearchFormat:=False).Select
    Set rFound = Selection
        
    If Not rFound Is Nothing Then
        rFound.EntireRow.Hidden = True
    End If
    
Next i

 

[Norie]

Use rFound for the result of the find.

For I =  3 To K
 
   Set rFound = Rows(I).Find(What:=SearchVar, After:=Cells(I,1), LookIn:=xlFormulas, _
            LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
            MatchCase:=False, SearchFormat:=False)
 
   If Not rFound Is Nothing Then
         rFound.EntireRow.Hidden= True
   End If
 
Next I

[/code]

 

[daniel22bg]

hey, that was very quick... and it helped. Thanks a lot!