Application.Intersect (Excel)

Retorna um objeto Range que representa a interseção retangular de dois ou mais intervalos. Se um ou mais intervalos de uma planilha diferente forem especificados, um erro será retornado.

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) - Os intervalos de interseção. Pelo menos dois objetos Intervalo devem ser especificados.

Arg2 (Range) - Os intervalos de interseção. Pelo menos dois objetos Intervalo devem ser especificados.