Hi,
Please assist.
How do I put a bottom and right border on each cell in a range?
This is what I have for the bottom border.

Set rng = Range(Cells(Rows.Count, "A").End(xlUp), Range("l7"))

rng.Borders.LineStyle = xlNone
rng.Borders(xlInsideHorizontal).LineStyle = xlContinuous
rng.Borders(xlEdgeBottom).LineStyle = xlContinuous

rng.Borders.LineStyle = xlNone
rng.Borders(xlInsideHorizontal).LineStyle = xlContinuous
rng.Borders(xlEdgeLeft).LineStyle = xlContinuous

rng.Borders.LineStyle = xlNone
rng.Borders(xlInsideHorizontal).LineStyle = xlContinuous
rng.Borders(xlEdgeRight).LineStyle = xlContinuous


Thanks

Something like this...

Set rng = Range(Cells(Rows.Count, "A").End(xlUp), Range("l7"))

With rng
.Borders.LineStyle = xlNone
.Borders(xlInsideHorizontal).LineStyle = xlContinuous
.Borders(xlEdgeBottom).LineStyle = xlContinuous
.Borders(xlEdgeRight).LineStyle = xlContinuous
End With

--
HTH...

Jim Thomlinson


"Gwen" wrote:

> Hi,
> Please assist.
> How do I put a bottom and right border on each cell in a range?
> This is what I have for the bottom border.
>
> Set rng = Range(Cells(Rows.Count, "A").End(xlUp), Range("l7"))
>
> rng.Borders.LineStyle = xlNone
> rng.Borders(xlInsideHorizontal).LineStyle = xlContinuous
> rng.Borders(xlEdgeBottom).LineStyle = xlContinuous
>
> rng.Borders.LineStyle = xlNone
> rng.Borders(xlInsideHorizontal).LineStyle = xlContinuous
> rng.Borders(xlEdgeLeft).LineStyle = xlContinuous
>
> rng.Borders.LineStyle = xlNone
> rng.Borders(xlInsideHorizontal).LineStyle = xlContinuous
> rng.Borders(xlEdgeRight).LineStyle = xlContinuous
>
>
> Thanks
>
>

Thanks
Unfortunately, it only worked for the bottom border.

"Jim Thomlinson" wrote:

> Something like this...
>
> Set rng = Range(Cells(Rows.Count, "A").End(xlUp), Range("l7"))
>
> With rng
> .Borders.LineStyle = xlNone
> .Borders(xlInsideHorizontal).LineStyle = xlContinuous
> .Borders(xlEdgeBottom).LineStyle = xlContinuous
> .Borders(xlEdgeRight).LineStyle = xlContinuous
> End With
>
> --
> HTH...
>
> Jim Thomlinson
>
>
> "Gwen" wrote:
>
> > Hi,
> > Please assist.
> > How do I put a bottom and right border on each cell in a range?
> > This is what I have for the bottom border.
> >
> > Set rng = Range(Cells(Rows.Count, "A").End(xlUp), Range("l7"))
> >
> > rng.Borders.LineStyle = xlNone
> > rng.Borders(xlInsideHorizontal).LineStyle = xlContinuous
> > rng.Borders(xlEdgeBottom).LineStyle = xlContinuous
> >
> > rng.Borders.LineStyle = xlNone
> > rng.Borders(xlInsideHorizontal).LineStyle = xlContinuous
> > rng.Borders(xlEdgeLeft).LineStyle = xlContinuous
> >
> > rng.Borders.LineStyle = xlNone
> > rng.Borders(xlInsideHorizontal).LineStyle = xlContinuous
> > rng.Borders(xlEdgeRight).LineStyle = xlContinuous
> >
> >
> > Thanks
> >
> >