Referring to ranges

Using the Intersect method to create a new range from overlapping ranges

The Intersect method returns the cells that overlap between two or more ranges. If there is no overlap, an error is returned:

Application.Intersect(argument1, argument2, etc.)

The expression Application is not required. The following code colors the overlapping cells of the two ranges:

Set IntersectRange = Intersect(Range("Range1"), Range("Range2"))
IntersectRange.Interior.ColorIndex = 6