VBA: Adding borders to a table

[Chris Macro]

I am trying to add borders to a table. If you look at the picture below, I am wanting the inside of the table to be outlined with thin lines and the outside of the table to have a thick border. I recorded a macro doing this but it gave me an absurd amount of code lines. Is there a clean way to code borders?

Excel 2007

	A	B	C
4	Mill	SAP Item #	SAP Agreement #
5	Escanaba	23423	xxx
6	Luke	25235	xcvs
7	Wisconsin Rapids	43	sdssd

<colgroup><col style="width: 25pxpx"><col><col><col></colgroup><thead>
</thead><tbody>
</tbody>

Email Contents​

 

[hippiehacker]

actually only this

  With Selection.Borders         
    .LineStyle = xlContinuous         
    .Weight = xlThin         
    .ColorIndex = xlAutomatic     
 End With

but as you require 2 borders on selected table you might go with this

Dim myBorders() As Variant, myBorders2() As Variant, item As Variant, item2 As Variant
myBorders = Array(xlEdgeLeft, _
xlEdgeTop, _
xlEdgeBottom, _
xlEdgeRight, _
xlInsideVertical, _
xlInsideHorizontal)

myBorders2 = Array(xlEdgeLeft, _
xlEdgeTop, _
xlEdgeBottom, _
xlEdgeRight)

For Each item In myBorders
With Selection.Borders(item)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Next item

For Each item2 In myBorders2
With Selection.Borders(item2)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
Next item2