Using the Intersect Method to Create a New Range from Overlapping Ranges
Sub inter() Set IntersectRange = Intersect(range("Range1"), range("Range2")) IntersectRange.Interior.ColorIndex = 6 End Sub