Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

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