Makro - indsæt ramme omkring et variabelt celleområde

Denne makro forudsætter at A2 altid er en del af celleområdet (fx. overskrift).

Sub Makro1()
    Dim rng As Range
    Set rng = Range("A2").CurrentRegion
    With rng.Borders
        .LineStyle = xlContinuous
        .Weight = xlThick
        .ColorIndex = xlAutomatic
    End With
    rng.Borders(xlInsideVertical).LineStyle = xlNone
    rng.Borders(xlInsideHorizontal).LineStyle = xlNone
End Sub

Du kan med fordel indsætte denne linie i starten af makroen, så alle gamle streger bliver slettet

Cells.Borders.LineStyle = xlNone

Takker ... smid svar

ok :-)

kan kortes ned til

Sub Makroen()
    Cells.Borders.LineStyle = xlNone
    Range("A2").CurrentRegion.BorderAround Weight:=xlThick ', Color:=vbBlue
End Sub