how to code for only an Outside Border ?

[cirugio]

Can someone tell me if there is a way to create a border just around the selected cells. I can't seem to find how to do this. I have the following, code, but it creates a border around each cell within my selected range. I tried changing the xlContinuous to .BorderAround but it doesn't seem to work. Thoughts? Thanks for your time in advance.


Range("k1:r" & Range("A" & Rows.Count).End(xlUp).Row).Select
With Selection.Borders
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With

 

[MickG]

Try, something like:-

ActiveSheet.Range("A1:D4").BorderAround _
        ColorIndex:=3, Weight:=xlThick

 

[cirugio]

Perfect. Thanks.