gdev
Technical User
- Mar 12, 2001
- 38
Why isn't this code working?
I want bottom and right borders from a7:l7 to the last
row.
Dim rng As Range
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
Please assist.
Thanks
I want bottom and right borders from a7:l7 to the last
row.
Dim rng As Range
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
Please assist.
Thanks