Mbv VBA een selectie een rand geven

[Kim2011]

Hoi allemaal,

Graag wil ik mbv een macro een bepaalde selectie een rand geven. Kan dit ook zonder de cellen te selecteren, zoals ik nu in onderstaande code heb?

Super bedankt!

    i = 5

    Range("A" & i & ":F" & i).Select
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With

 

[JeanPaul28]

Test deze eens

Range("A" & i & ":F" & i).Borders(xlEdgeTop).LineStyle = xlContinuous

 

[Roncancio]

i = 5

Range("A" & i & ":F" & i).BorderAround , 2, 1

Met vriendelijke groet,


Roncancio

 

[Kim2011]

Super! Dankjulliewel