Range actieve cel tot bepaalde cel selecteren

[japdonk]

Hallo,

Ik wil graag in een macro opnemen dat de range van de actieve cel tot en met cel A10 geselecteerd wordt. Ik krijg de code alleen niet voor elkaar.

dus stel de actieve cel is A56 dan moet A56 tot A10 geselecteerd worden.

Kan iemand mij hiermee helpen?

 

[OctaFish]

Dit zou moeten werken:

Sub Selecteren()
Dim rng As Range
Dim sRange As String

    Set rng = ActiveCell
    sRange = rng.Address
        Range(sRange & ":A10").Select
End Sub

 

[japdonk]

yes, thanx!