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:<pre>
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</pre>

_________________
Cheers,<font size=+2><font color="red"> Nate<font color="blue">O</font></font></font>
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