missed ranges and the find function...

[Engineer Joe]

hey you old crusty VBA veterans...here's an easy one for you...

I execute a find procedure on a worksheet, and try to name the range (lets call it "Body") that it finds...like so:

Set Body = .find(blah,blah,blah)

My question is: what happens when nothing is found? Body has already been defined as a range. But an error is not generated...Not until i try to use Body. I guess what i'm getting at is that i'd like to insert some code that either notifies me, or skips over any arguments that try to use that range after it misses. But I don't know how? Any tips? I love you. I mean, I would be appreciative...

 

[BrianB]

See - you youngsters can't do without us.
Try this :-

Sub test()
    Dim FoundCell As Object
    Dim body As Range
    Set FoundCell = ActiveSheet.Cells.Find(what:="test")
    If FoundCell Is Nothing Then
        MsgBox ("Not found")
    Else
        Set body = FoundCell
        MsgBox (body.Address)
    End If
End Sub

------------------------------------------
I'm off for my afternoon nap now
'-----------------------------------------

 

[Engineer Joe]

thanks. I'll use it...no, I'll wear it out.