VBA - vælg de 5 kolonner før aktiv celle

Range(Replace(Cells(1, WorksheetFunction.Max(1, ActiveCell.Column - 5)).Address(False, False), 1, "") & ":" & Replace(Cells(1, WorksheetFunction.Max(1, ActiveCell.Column - 1)).Address(False, False), 1, "")).Select


Lidt lang, da den osse tester for, at  aktive celle kan være i en af de første 5 kolonner.

Super :-)

Tak for det, virker lige efter hensigten.

Fint med den tester om det er de første kolonner, det vil dog være en fejl hvis var - men tak endnu en gang :-)

Velbekomme :-)