View Single Post
  #6   Report Post  
Posted to microsoft.public.excel.programming
JLGWhiz JLGWhiz is offline
external usenet poster
 
Posts: 3,986
Default BorderAround won't go away

Thanks for the responses, I guess I should have made the post as a comment.
The VBA help instructions imply that you can use the syntax that I originally
posted, although I had not use that method before. When I could not get it
to work, I thought maybe there was a glitch in the software. Then I realized
that it was just another poorly written remark in the VBA help files. That's
why I did the second posting.

Thanks again for caring. JLG

"Don Guillett" wrote:

See my post

--
Don Guillett
SalesAid Software

"Vasant Nanavati" <vasantn AT aol DOT com wrote in message
...
It's counterintuitive, but you have to remove them individually:

Sub brdrs()
With Range("C3:G8")
.BorderAround Weight:=xlThick, ColorIndex:=xlColorIndexAutomatic
MsgBox "Check Border"
.Borders(xlEdgeLeft).LineStyle = xlNone
.Borders(xlEdgeTop).LineStyle = xlNone
.Borders(xlEdgeBottom).LineStyle = xlNone
.Borders(xlEdgeRight).LineStyle = xlNone
End With
End Sub
__________________________________________________ ___________________

"JLGWhiz" wrote in message
...
Can someone explain why I still have a xlThick border around my range
after I
run this procedu

Sub brdrs()
Range("C3:G8").BorderAround Weight:=xlThick, _
ColorIndex:=xlColorIndexAutomatic
MsgBox "Check Border"
Range("C3:G8").BorderAround LineStyle:=-4142
Range("C3:G8").BorderAround LineStyle:=xlLineStyleNone
Range("C3:G8").BorderAround LineStyle:=xlNone
End Sub