Hi Dennis

Bob, ???

Not sure whether you were replying to my post, but my suggestion
definitely works in XL2003

--
Regards

Roger Govier


"EagleOne" wrote in message
oups.com...
Bob,
Thinking that I may have made a bad call, I did try your suggestion,
as
I had done on my own, as per my original post.

Unfortunately, even though this is in the documentation it does NOT
work.

Thanks for your time!

Dennis



Roger Govier wrote:
Hi Dennis

Try
Worksheets("Sheet1").Range("B1:D1").BorderAround
LineStyle:=xlLineStyleNone

--
Regards

Roger Govier


"EagleOne" wrote in message
ups.com...
2003

VBA offers a shortcut to add borders around a range like:
Worksheets("Sheet1").Range("B1:D1").BorderAround ColorIndex:=3, _
Weight:=xlThick


But to remove the border it appears that only the following works:

With Worksheets("Sheet1").Range("B1:D1")
.Borders(xlDiagonalDown).LineStyle = xlNone
.Borders(xlDiagonalUp).LineStyle = xlNone
.Borders(xlEdgeLeft).LineStyle = xlNone
.Borders(xlEdgeTop).LineStyle = xlNone
.Borders(xlEdgeBottom).LineStyle = xlNone
.Borders(xlEdgeRight).LineStyle = xlNone
.Borders(xlInsideVertical).LineStyle = xlNone
.Borders(xlInsideHorizontal).LineStyle = xlNone
Endwith

The VBA documention mentions:
"To clear the border, you must set the LineStyle property to
xlLineStyleNone for all the cells in the range."

But that does not work as stated. In fact, it errors out
Object.

Is there a shortcut BorderAround Clear or is the 8 step process
above
the only way?

TIA

Dennis