cell range

[ranswert]

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?

 

[Joel]

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]

Thanks I 'll give that a try

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

 

[paul.robinson]

Hi

If not intersect(Selection, myRange) is nothing then
'do something
end if

where myRange is your Range of Cells.
e.g. Set myRange = ActiveSheet.Range("A2:B6")

If you only want one cell selected then

If Selection.Count = 1 then
If not intersect(Selection, myRange) is nothing then
'do something
end If
End If

regards
Paul