Hello Brian, perhaps the following procedure will be of use:
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."
[ This Message was edited by: NateO on 2002-05-20 15:41 ]