Border in diffrent rows

[hendrikbez]

I have this code, but it does not doing what I need. did search with Google, but cannot find any info
is the following possible, if so how.

I want to highlight say 2 rows, then it must place a border on top and bottom of the rows.
The nesx one can be 4 rows and so on.
the rows will always be different sizes.

<code>Sub RedOutlineCells()
    Dim rng As Range

    Set rng = Range("A1:k4")

    With rng.Borders
        .LineStyle = xlContinuous
        .Color = vbRed
        .Weight = xlThin
    End With
End Sub</code>

 

[gallen]

the'Borders' part needs an argument to tell it which border. If you type an open bracket you will see a list of all possibilities so for the top border it would be:

 With rng.Borders(xlEdgeTop)

 

[hendrikbez]

Did change the line, it changes the top of row 4, but how can I do this if I higlit about 4 rows anywhere on the sheet and when run code it will put a line on top of the first row and a line on the last row bottom

 

[gallen]

Sub RedOutlineCells()
    Dim rng As Range


    Set rng = Selection


    'Top
    With rng.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Color = vbRed
        .Weight = xlThin
    End With
    'Bottom
    With rng.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Color = vbRed
        .Weight = xlThin
    End With
    
End Sub

 

[hendrikbez]

Thank you gallen, it is working