Please ignore last post...

.Range("A1").BorderAround Weight:=xlHairline

HTH

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