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?

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?

Thanks I 'll give that a try

"Joel" wrote:

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?

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

On Feb 4, 3:04*pm, 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?