Automating right and bottom borders code not working

[gdev]

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

 

[WinblowsME]

xlDown

 

[SkipVought]

Hi,

    Dim rng As Range
'I want bottom and right borders from a7:l7 to the last row.
    Set rng = Range("a7:l7")
    Set rng = Range(rng, rng.End(xlDown))

Skip,
[sub]
When a wee mystic is on the loose..
It's a Small Medium at Large! [/sub]

 

[gdev]

Thank you. However, the bottom border is working but not the right border.

Any suggestions?

 

[SkipVought]

Works for me, like this...
[tt]
_____________________|
_____________________|
_____________________|
_____________________|
_____________________|

[/tt]


Skip,
[sub]
When a wee mystic is on the loose..
It's a Small Medium at Large! [/sub]

 

[gdev]

Do you get a right border for each column?



_____|________|________|
_____|________|________|

 

[SkipVought]

No. You don't have an xlInsideVertical.

Skip,
[sub]
When a wee mystic is on the loose..
It's a Small Medium at Large! [/sub]

 

[gdev]

That's it!
Thank you.