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, Arg3, Arg4, Arg5, Arg6, Arg7, Arg8, Arg9, Arg10, Arg11, Arg12, Arg13, Arg14, Arg15, Arg16, Arg17, Arg18, Arg19, Arg20, Arg21, Arg22, Arg23, Arg24, Arg25, Arg26, Arg27, Arg28, Arg29, 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

The following arguments are required:

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.

The following arguments are optional

Arg3 - Range

Arg4

Arg5

Arg6

Arg7

Arg8

Arg9

Arg10

Arg11

Arg12

Arg13

Arg14

Arg15

Arg16

Arg17

Arg18

Arg19

Arg20

Arg21

Arg22

Arg23

Arg24

Arg25

Arg26

Arg27

Arg28

Arg29

Arg30 - An intersecting range