Border cells with less code?
 

I am using Office 2003 on Windows XP.

Drawing borders around cells seems so code intensive. Is there a shorter way
to accomplish the following (which simply boxes a range of cells)?

PLEASE NOTE: I tried "BorderAround," but this does not add the "inside
vertical" borders. This can be accomplished with one click of the toolbar
button, but in code...

With [A10:N10]
.Borders(xlEdgeTop).Weight = xlThin
.Borders(xlEdgeBottom).Weight = xlThin
.Borders(xlEdgeLeft).Weight = xlThin
.Borders(xlEdgeRight).Weight = xlThin
.Borders(xlInsideVertical).Weight = xlThin
.Borders(xlInsideHorizontal).Weight = xlThin
End With

Is there something like a "BoxAround" method? I tried BorderAround, but this
does not add the "inside vertical" borders.

Thanks much in advance for your input.

Border cells with less code?
 

try something like this

Dim iBorder As XlBordersIndex

For iBorder = xlEdgeLeft To xlEdgeRight
With [A10:N10]
.Borders(iBorder).Weight = xlThin
End With
Next

HTH

Philip

"XP" wrote:

I am using Office 2003 on Windows XP.

Drawing borders around cells seems so code intensive. Is there a shorter way
to accomplish the following (which simply boxes a range of cells)?

PLEASE NOTE: I tried "BorderAround," but this does not add the "inside
vertical" borders. This can be accomplished with one click of the toolbar
button, but in code...

With [A10:N10]
.Borders(xlEdgeTop).Weight = xlThin
.Borders(xlEdgeBottom).Weight = xlThin
.Borders(xlEdgeLeft).Weight = xlThin
.Borders(xlEdgeRight).Weight = xlThin
.Borders(xlInsideVertical).Weight = xlThin
.Borders(xlInsideHorizontal).Weight = xlThin
End With

Is there something like a "BoxAround" method? I tried BorderAround, but this
does not add the "inside vertical" borders.

Thanks much in advance for your input.

Border cells with less code?
 

Range("A10", "N10").Borders.Weight = xlThin

--
HTH...

Jim Thomlinson


"XP" wrote:

I am using Office 2003 on Windows XP.

Drawing borders around cells seems so code intensive. Is there a shorter way
to accomplish the following (which simply boxes a range of cells)?

PLEASE NOTE: I tried "BorderAround," but this does not add the "inside
vertical" borders. This can be accomplished with one click of the toolbar
button, but in code...

With [A10:N10]
.Borders(xlEdgeTop).Weight = xlThin
.Borders(xlEdgeBottom).Weight = xlThin
.Borders(xlEdgeLeft).Weight = xlThin
.Borders(xlEdgeRight).Weight = xlThin
.Borders(xlInsideVertical).Weight = xlThin
.Borders(xlInsideHorizontal).Weight = xlThin
End With

Is there something like a "BoxAround" method? I tried BorderAround, but this
does not add the "inside vertical" borders.

Thanks much in advance for your input.

Border cells with less code?
 

It was so simple, I couldn't figure it out... ;-)

Thanks Jim!

"Jim Thomlinson" wrote:

Range("A10", "N10").Borders.Weight = xlThin

--
HTH...

Jim Thomlinson


"XP" wrote:

I am using Office 2003 on Windows XP.

Drawing borders around cells seems so code intensive. Is there a shorter way
to accomplish the following (which simply boxes a range of cells)?

PLEASE NOTE: I tried "BorderAround," but this does not add the "inside
vertical" borders. This can be accomplished with one click of the toolbar
button, but in code...

With [A10:N10]
.Borders(xlEdgeTop).Weight = xlThin
.Borders(xlEdgeBottom).Weight = xlThin
.Borders(xlEdgeLeft).Weight = xlThin
.Borders(xlEdgeRight).Weight = xlThin
.Borders(xlInsideVertical).Weight = xlThin
.Borders(xlInsideHorizontal).Weight = xlThin
End With

Is there something like a "BoxAround" method? I tried BorderAround, but this
does not add the "inside vertical" borders.

Thanks much in advance for your input.

Border cells with less code?
 

Thanks!

"Philip" wrote:

try something like this

Dim iBorder As XlBordersIndex

For iBorder = xlEdgeLeft To xlEdgeRight
With [A10:N10]
.Borders(iBorder).Weight = xlThin
End With
Next

HTH

Philip

"XP" wrote:

I am using Office 2003 on Windows XP.

Drawing borders around cells seems so code intensive. Is there a shorter way
to accomplish the following (which simply boxes a range of cells)?

PLEASE NOTE: I tried "BorderAround," but this does not add the "inside
vertical" borders. This can be accomplished with one click of the toolbar
button, but in code...

With [A10:N10]
.Borders(xlEdgeTop).Weight = xlThin
.Borders(xlEdgeBottom).Weight = xlThin
.Borders(xlEdgeLeft).Weight = xlThin
.Borders(xlEdgeRight).Weight = xlThin
.Borders(xlInsideVertical).Weight = xlThin
.Borders(xlInsideHorizontal).Weight = xlThin
End With

Is there something like a "BoxAround" method? I tried BorderAround, but this
does not add the "inside vertical" borders.

Thanks much in advance for your input.