Dim ws As Worksheet
Set ws = Application.Worksheets(“test”)
Set r1 = ws.Range( ws.Cells(9, 2), ws.Cells(EndRow, 20))
Set r2 = ws.Range( ws.Cells(9, 22), ws.Cells(EndRow, 26))
'Set r3 = Union(r1, r2) - this do not work…?
r1.Interior.ColorIndex = xlNone - this is not possible??