I don't know that there is an easy way to complete all borders:

With Range("A1")
With .Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlHairline
End With
With .Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlHairline
End With
With .Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlHairline
End With
With .Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlHairline
End With
End With

Jason

"JMay" wrote:

I only want to code a line which instructs VBA to
Place a thin border around a cell.

With Range("G2")
.Range("A1").Formula = "=SUBTOTAL(9,$G$5:$G$50)"
.Range("A1").Interior.ColorIndex = 6
.Range("A1").Font.Bold = True
.Range("A1").Style = "Comma"
<<<<<<<<<<<??????
End With

I did a Record Macro to get the code,, I only Clicked on the single icon
with the Full continuous line around the cell (top,left,right,& bottom)
and when I examined the code it was 15-20 lines << What is the SKINNY
of this auto produced code to produce a SIMPLE Border (All-Round type)?

TIA,

Jim May