Use intersect

Worksheets("Sheet1").Activate
Set isect = Application.Intersect(Range("rg1"), Range("rg2"))
If isect Is Nothing Then
MsgBox "Ranges do not intersect"
Else
isect.Select
End If

"ranswert" wrote:

I need to write a procedure that will run only when a selected cell is within
a range of cells. How do I identify if it is within a range?