Application.Intersect (Excel)

Devuelve un objeto Range que representa la intersección rectangular de dos o más rangos.

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) - Rangos de intersección.

Arg2 (Range) - Rangos de intersección.