Can someone explain why I still have a xlThick border around my range after I
run this procedure:

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

The VBA help instructions are misleading. The correct syntax should be

Range("C3:G8").Borders.LineStyle = xlNone

"JLGWhiz" wrote:

> Can someone explain why I still have a xlThick border around my range after I
> run this procedure:
>
> 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
>

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" <(E-Mail Removed)> wrote in message
newsF80706A-756D-43C6-AAA0-(E-Mail Removed)...
> Can someone explain why I still have a xlThick border around my range
> after I
> run this procedure:
>
> 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
>

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

--
Don Guillett
SalesAid Software
(E-Mail Removed)
"JLGWhiz" <(E-Mail Removed)> wrote in message
newsF80706A-756D-43C6-AAA0-(E-Mail Removed)...
> Can someone explain why I still have a xlThick border around my range
> after I
> run this procedure:
>
> 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
>

See my post

--
Don Guillett
SalesAid Software
(E-Mail Removed)
"Vasant Nanavati" <vasantn AT aol DOT com> wrote in message
news:(E-Mail Removed)...
> 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" <(E-Mail Removed)> wrote in message
> newsF80706A-756D-43C6-AAA0-(E-Mail Removed)...
>> Can someone explain why I still have a xlThick border around my range
>> after I
>> run this procedure:
>>
>> 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
>>
>
>

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
> (E-Mail Removed)
> "Vasant Nanavati" <vasantn AT aol DOT com> wrote in message
> news:(E-Mail Removed)...
> > 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" <(E-Mail Removed)> wrote in message
> > newsF80706A-756D-43C6-AAA0-(E-Mail Removed)...
> >> Can someone explain why I still have a xlThick border around my range
> >> after I
> >> run this procedure:
> >>
> >> 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
> >>
> >
> >
>
>