Border cells with less code?

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

XP - 24 Jan 2006 16:20 GMT

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.

Reply to this Message

Philip - 24 Jan 2006 16:32 GMT

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

> I am using Office 2003 on Windows XP.
>
[quoted text clipped - 18 lines]
>
> Thanks much in advance for your input.

Reply to this Message

XP - 24 Jan 2006 18:01 GMT

Thanks!

> try something like this
>
[quoted text clipped - 32 lines]
> >
> > Thanks much in advance for your input.

Reply to this Message

Jim Thomlinson - 24 Jan 2006 16:51 GMT

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

Signature

HTH...

Jim Thomlinson

> I am using Office 2003 on Windows XP.
>
[quoted text clipped - 18 lines]
>
> Thanks much in advance for your input.

Reply to this Message

XP - 24 Jan 2006 18:01 GMT

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

Thanks Jim!

> Range("A10", "N10").Borders.Weight = xlThin
>
[quoted text clipped - 20 lines]
> >
> > Thanks much in advance for your input.

Reply to this Message