Sub inter() Set IntersectRange = Intersect(range("Range1"), range("Range2")) IntersectRange.Interior.ColorIndex = 6 End Sub