Cell border

[AlexanderBB]

After applying a new Interior.Color, how do you keep (or restore) the small dotted borders around each cell ?

 

[Michael M]

you shouldn't need this bit of code

With Worksheets("Sheet1").Range("Y:CP")
        .Select
        Selection.Borders(xlEdgeRight).LineStyle = xlNone
        Selection.Borders(xlInsideVertical).LineStyle = xlNone
    End With

As my code does ALL borders except diagonals