SOLVED VBA: How to test if an object (range) is nothing?

[Brian]

I perform an intersection, but sometimes the result is nothing. I have not been able to find a means to test if isect is nothing.

Set isect = Application.Intersect(SourceSelection, Range("A10:A65000"))

I want the equivalent to:
If isect = "nothing" then msgbox "No relevant data."

Thanks.

[ This Message was edited by: Brian on 2002-05-20 14:47 ]

[ This Message was edited by: Brian on 2002-05-20 17:23 ]

[NateO]

Hello Brian, perhaps the following procedure will be of use:

Sub SrcSel()

Dim SourceSelection As Range

Set SourceSelection = Selection 'Change this to your preference

If Not Application.Intersect(SourceSelection, _

Range("A10:A65000")) Is Nothing Then

MsgBox "No relevant data."

End If

End Sub

_________________
Cheers, NateO

[ This Message was edited by: NateO on 2002-05-20 15:41 ]

[Brian]

Thanks.

Sorry, oversight on my part.

I had tried "isnothing" as one word instead of two.

Thanks again,

Brian