Hi,
Please assist.

I want a thick border around range and a5:l8
I want thin borders around cells in range from a5 to the end of range.

The below code gives me the thick borders I want not the cells within the
range.

Set rngAL8 = Range(Cells(Rows.Count, "A").End(xlUp), Range("l5"))

With rngAL8
'.Borders.LineStyle = xlNone
.Borders(xlInsideHorizontal).LineStyle = xlContinuous
.Borders(xlInsideHorizontal).Weight = xlHairline

.Borders(xlEdgeBottom).LineStyle = xlContinuous
.Borders(xlEdgeBottom).Weight = xlHairline

.Borders(xlEdgeRight).LineStyle = xlContinuous
.Borders(xlEdgeRight).Weight = xlHairline

.Borders(xlInsideVertical).LineStyle = xlContinuous
.Borders(xlInsideVertical).Weight = xlHairline
End With


Set rng = Range(Cells(Rows.Count, "A").End(xlUp), Range("l1"))
With rng
..Borders(xlInsideHorizontal).LineStyle = xlNone
..Borders(xlEdgeLeft).Weight = xlThick
..Borders(xlEdgeRight).Weight = xlThick
..Borders(xlEdgeTop).Weight = xlThick
..Borders(xlEdgeBottom).Weight = xlThick
End With

Set rnga5l7 = Range("A5:L7")
With rnga5l7
..Borders(xlInsideHorizontal).LineStyle = xlNone
..Borders(xlEdgeLeft).Weight = xlThick
..Borders(xlEdgeRight).Weight = xlThick
..Borders(xlEdgeTop).Weight = xlThick
..Borders(xlEdgeBottom).Weight = xlThick
End With

Thanks

? maybe remove these 2 lines

Borders(xlInsideHorizontal).LineStyle = xlNone


HTH,
Bernie
MS Excel MVP


"Gwen" <(E-Mail Removed)> wrote in message
news:0CF1E0AE-CFF2-403B-AB71-(E-Mail Removed)...
> Hi,
> Please assist.
>
> I want a thick border around range and a5:l8
> I want thin borders around cells in range from a5 to the end of range.
>
> The below code gives me the thick borders I want not the cells within the
> range.
>
> Set rngAL8 = Range(Cells(Rows.Count, "A").End(xlUp), Range("l5"))
>
> With rngAL8
> '.Borders.LineStyle = xlNone
> .Borders(xlInsideHorizontal).LineStyle = xlContinuous
> .Borders(xlInsideHorizontal).Weight = xlHairline
>
> .Borders(xlEdgeBottom).LineStyle = xlContinuous
> .Borders(xlEdgeBottom).Weight = xlHairline
>
> .Borders(xlEdgeRight).LineStyle = xlContinuous
> .Borders(xlEdgeRight).Weight = xlHairline
>
> .Borders(xlInsideVertical).LineStyle = xlContinuous
> .Borders(xlInsideVertical).Weight = xlHairline
> End With
>
>
> Set rng = Range(Cells(Rows.Count, "A").End(xlUp), Range("l1"))
> With rng
> .Borders(xlInsideHorizontal).LineStyle = xlNone
> .Borders(xlEdgeLeft).Weight = xlThick
> .Borders(xlEdgeRight).Weight = xlThick
> .Borders(xlEdgeTop).Weight = xlThick
> .Borders(xlEdgeBottom).Weight = xlThick
> End With
>
> Set rnga5l7 = Range("A5:L7")
> With rnga5l7
> .Borders(xlInsideHorizontal).LineStyle = xlNone
> .Borders(xlEdgeLeft).Weight = xlThick
> .Borders(xlEdgeRight).Weight = xlThick
> .Borders(xlEdgeTop).Weight = xlThick
> .Borders(xlEdgeBottom).Weight = xlThick
> End With
>
> Thanks

It seemed to work OK just using the xlInsideHorizontal or xlInsideVertical.
I commented out the others.

With RngAL8
'.Borders.LineStyle = xlNone
.Borders(xlInsideHorizontal).LineStyle = xlContinuous
.Borders(xlInsideHorizontal).Weight = xlThick

'.Borders(xlEdgeBottom).LineStyle = xlContinuous
'.Borders(xlEdgeBottom).Weight = xlThick

'.Borders(xlEdgeRight).LineStyle = xlContinuous
'.Borders(xlEdgeRight).Weight = xlThick

.Borders(xlInsideVertical).LineStyle = xlContinuous
.Borders(xlInsideVertical).Weight = xlThick

"Gwen" wrote:

> Hi,
> Please assist.
>
> I want a thick border around range and a5:l8
> I want thin borders around cells in range from a5 to the end of range.
>
> The below code gives me the thick borders I want not the cells within the
> range.
>
> Set rngAL8 = Range(Cells(Rows.Count, "A").End(xlUp), Range("l5"))
>
> With rngAL8
> '.Borders.LineStyle = xlNone
> .Borders(xlInsideHorizontal).LineStyle = xlContinuous
> .Borders(xlInsideHorizontal).Weight = xlHairline
>
> .Borders(xlEdgeBottom).LineStyle = xlContinuous
> .Borders(xlEdgeBottom).Weight = xlHairline
>
> .Borders(xlEdgeRight).LineStyle = xlContinuous
> .Borders(xlEdgeRight).Weight = xlHairline
>
> .Borders(xlInsideVertical).LineStyle = xlContinuous
> .Borders(xlInsideVertical).Weight = xlHairline
> End With
>
>
> Set rng = Range(Cells(Rows.Count, "A").End(xlUp), Range("l1"))
> With rng
> .Borders(xlInsideHorizontal).LineStyle = xlNone
> .Borders(xlEdgeLeft).Weight = xlThick
> .Borders(xlEdgeRight).Weight = xlThick
> .Borders(xlEdgeTop).Weight = xlThick
> .Borders(xlEdgeBottom).Weight = xlThick
> End With
>
> Set rnga5l7 = Range("A5:L7")
> With rnga5l7
> .Borders(xlInsideHorizontal).LineStyle = xlNone
> .Borders(xlEdgeLeft).Weight = xlThick
> .Borders(xlEdgeRight).Weight = xlThick
> .Borders(xlEdgeTop).Weight = xlThick
> .Borders(xlEdgeBottom).Weight = xlThick
> End With
>
> Thanks

Thanks for your help.
Unfortunately I am not getting the top/bottom border lines

"JLGWhiz" wrote:

> It seemed to work OK just using the xlInsideHorizontal or xlInsideVertical.
> I commented out the others.
>
> With RngAL8
> '.Borders.LineStyle = xlNone
> .Borders(xlInsideHorizontal).LineStyle = xlContinuous
> .Borders(xlInsideHorizontal).Weight = xlThick
>
> '.Borders(xlEdgeBottom).LineStyle = xlContinuous
> '.Borders(xlEdgeBottom).Weight = xlThick
>
> '.Borders(xlEdgeRight).LineStyle = xlContinuous
> '.Borders(xlEdgeRight).Weight = xlThick
>
> .Borders(xlInsideVertical).LineStyle = xlContinuous
> .Borders(xlInsideVertical).Weight = xlThick
>
> "Gwen" wrote:
>
> > Hi,
> > Please assist.
> >
> > I want a thick border around range and a5:l8
> > I want thin borders around cells in range from a5 to the end of range.
> >
> > The below code gives me the thick borders I want not the cells within the
> > range.
> >
> > Set rngAL8 = Range(Cells(Rows.Count, "A").End(xlUp), Range("l5"))
> >
> > With rngAL8
> > '.Borders.LineStyle = xlNone
> > .Borders(xlInsideHorizontal).LineStyle = xlContinuous
> > .Borders(xlInsideHorizontal).Weight = xlHairline
> >
> > .Borders(xlEdgeBottom).LineStyle = xlContinuous
> > .Borders(xlEdgeBottom).Weight = xlHairline
> >
> > .Borders(xlEdgeRight).LineStyle = xlContinuous
> > .Borders(xlEdgeRight).Weight = xlHairline
> >
> > .Borders(xlInsideVertical).LineStyle = xlContinuous
> > .Borders(xlInsideVertical).Weight = xlHairline
> > End With
> >
> >
> > Set rng = Range(Cells(Rows.Count, "A").End(xlUp), Range("l1"))
> > With rng
> > .Borders(xlInsideHorizontal).LineStyle = xlNone
> > .Borders(xlEdgeLeft).Weight = xlThick
> > .Borders(xlEdgeRight).Weight = xlThick
> > .Borders(xlEdgeTop).Weight = xlThick
> > .Borders(xlEdgeBottom).Weight = xlThick
> > End With
> >
> > Set rnga5l7 = Range("A5:L7")
> > With rnga5l7
> > .Borders(xlInsideHorizontal).LineStyle = xlNone
> > .Borders(xlEdgeLeft).Weight = xlThick
> > .Borders(xlEdgeRight).Weight = xlThick
> > .Borders(xlEdgeTop).Weight = xlThick
> > .Borders(xlEdgeBottom).Weight = xlThick
> > End With
> >
> > Thanks