Macro to produce Thick Border Box

[Flupsie]

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

 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

[bakerman]

    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

[Flupsie]

Thanks for the help, much appreciated

[Scott Huish]

If you don't actually need the diagonals:

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

[Flupsie]

Thanks Scott, The diagonals, slow down the process tremendously

Have tested code and is super fast