Cel selecteren

[goof2808]

Ik gebruik onderstaande code om de laatste gevulde cel in kolom L te selecteren.
Ik wil echter de cel die 4 cellen daar rechts van staat selecteren.
Wat moet ik aan mij code toevoegen?

Sub LastCellBeforeBlankInColumn()
    Sheets("gegevens").Select
    Range("L1").End(xlDown).Select
End Sub

Thanks Govert

 

[goof2808]

Het is al gelukt!

Sub LastCellBeforeBlankInColumn()
    Sheets("gegevens").Select
    Range("L1").End(xlDown).Select
    ActiveCell.Offset(rowOffset:=0, columnOffset:=4).Activate
End Sub

 

[Wigi]

Doe

Sub LastCellBeforeBlankInColumn()
    Sheets("gegevens").Range("L1").End(xlDown).Offset(, 4).Activate
End Sub

 

[goof2808]

Hey Wigi,

Zal ik doen, ziet er beter uit.

Bedankt
Goof