VBA for using Find feature

[normpam]

I've written some code that will ask the user for a sheet name; go to the sheet, and find an item. If it finds it, I direct the program to go back to the first sheet and put the word "Match" somewhere. No problem. But, if the item is NOT found, then my code generates an error,

"Object variable or With Block variable not set"

How can I work around this? All I want to do is write my code so that it loops through a list and searches for items on another sheet.

Much Thanks for any help.

 

[John_w]

Assign the result of the Find method to a Range object and compare it with Nothing, like this:

    Dim foundItem As Range
    
    Set foundItem = Cells.Find("xxx")
    
    If Not foundItem Is Nothing Then
        MsgBox "Found it"
    Else
        MsgBox "Didn't find it"
    End If

 

[normpam]

Thanks. I'm working on trying go figure out if this will work for me. If only I could get an Excel fairy that could touch me with her wand so I'd know every VBA command!