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, ..., Arg30

Arg1 (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