Macro runs fast when I step through it until I go to one of my sheets and it gets to this code... what would cause this to take so long the rest of the macro takes seconds and this piece here takes about 2 minutes to complete... is there an easier way of doing this I need it to clear all borders from the sheet...


Current Code:
Sheets("Sorted Data").Select
           
            Cells.Select
  Selection.Borders(xlDiagonalDown).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.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Thanks,