Hey all, trying to find a way to remove borders with the cells i have selected. Code so far:
But it's not working. Thanks in advance.
Code:
Worksheets("Agent Summary").range("A6:AA" & xlLastRow("Agent Summary") + 5).Select
Selection.ClearContents
Selection.Orientation = 0
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Interior.ColorIndex = xlNone
Selection.Font.Bold = False
But it's not working. Thanks in advance.