Excel VisualBasic Script

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