Macro to produce Thick Border Box

Thanks for help, much appreciated

I have added the following code to clear the borders at the beginning of the code.

It would be appreciated if you would streamline this

Code:

---

With Range("A:D")

 .Borders(xlDiagonalDown).LineStyle = xlNone
    .Borders(xlDiagonalUp).LineStyle = xlNone
    .Borders(xlEdgeLeft).LineStyle = xlNone
    .Borders(xlEdgeTop).LineStyle = xlNone
    .Borders(xlEdgeBottom).LineStyle = xlNone
  .Borders(xlEdgeRight).LineStyle = xlNone
    .Borders(xlInsideVertical).LineStyle = xlNone
    .Borders(xlInsideHorizontal).LineStyle = xlNone

End With

---

Code:

---

    Dim b As Variant
    For Each b In Array(xlDiagonalDown, xlDiagonalUp, xlEdgeLeft, xlEdgeTop, _
            xlEdgeBottom, xlEdgeRight, xlInsideVertical, xlInsideHorizontal)
        Range("A:D").Borders(b).LineStyle = xlNone
    Next

---

Thanks for the help, much appreciated

If you don't actually need the diagonals:

Code:

---

Range("A:D").Borders.LineStyle = xlNone

---

Thanks Scott, The diagonals, slow down the process tremendously

Have tested code and is super fast