Application.Intersect (Excel)
Returns a Range object that represents the rectangular intersection of two or more ranges. If one or more ranges from a different worksheet are specified, an error is returned.
Intersect (Arg1, Arg2, ..., Arg30)
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
Arguments
Arg1, Arg2, ..., Arg30Arg1 (Range) - The intersecting ranges. At least two Range objects must be specified.
Arg2 (Range) - The intersecting ranges. At least two Range objects must be specified.
Arg30 - An intersecting range