Better way?

Posted by Bj on April 30, 2001 9:15 AM

Anyone know of a better way to do this?

Range("A1:C13").Select
Edge = Array(xlEdgeLeft, xlEdgeTop, xlEdgeBottom, xlEdgeRight)

For X = 0 To 3
With Selection.Borders(Edge(X))
.LineStyle = xlContinuous
.Weight = xlThin
End With
Next X

Posted by Dave Hawley on April 30, 2001 10:16 AM

Hi Bj

Try this:

With Range("A1:C13")
.Borders.LineStyle = xlContinuous
.Borders(xlInsideVertical).LineStyle = xlNone
.Borders(xlInsideHorizontal).LineStyle = xlNone
End With

Dave

OzGrid Business Applications

Posted by Bj on April 30, 2001 10:47 AM

Thanks Dave! You are the man!