Yet one more instance where something so easy is made so complex when
recorded. At least you are savy enough to recognize garbage when you see it
and know that there just has to be a better way.
--
HTH...

Jim Thomlinson


"quartz" wrote:

That would do it. Thanks Jim.

"Jim Thomlinson" wrote:

Sub test()
Dim rng As Range

Set rng = ActiveSheet.Range("A1:B10")

rng.Borders.LineStyle = xlNone
End Sub
--
HTH...

Jim Thomlinson


"quartz" wrote:

I am using Office 2003 on Windows XP.

I recorded the code to remove ALL borders from a range and got the following:

Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

Is there a simpler code to just remove all the borders in a range of cells?
If so, could you please post example code?
Thanks much in advance.