Applying Bottom and right border

[Guest]

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

 

[Guest]

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

 

[Guest]

Thanks
Unfortunately, it only worked for the bottom border.