OK, the following seems to work:

Set isect = Application.Intersect(Range(Application.Caller.Add ress),
Range("rg2"))
If isect Is Nothing Then
MsgBox "Ranges do not intersect"
Else
isect.Select
End If

In this example, Application.Caller.Address returns the address of the
cell which was edited. So one can test and then act, depending on
whether that cell was a specified cell or not.

THanks again, Jim.


--
Chief Wiggums
------------------------------------------------------------------------
Chief Wiggums's Profile: http://www.excelforum.com/member.php...o&userid=16934
View this thread: http://www.excelforum.com/showthread...hreadid=516531