Naam definieren middels Macro

[Phill]

Is het mogelijk om de functie "Naam definiëren" in een Macro te zetten?

Ik heb namelijk een excel-bestand dat qua kolommen altijd hetzelfde is, maar niet qua aantal rijen.
Deze map gebruik ik om brieven mee te maken. Alleen worden er meer brieven gemaakt dan er gegevens zijn. Ik krijg dat niet opgelost.
Ik wil dit ondervangen door de gevulde rijen een naam te geven. Hierdoor worden er geen onnodige brieven geprint.
Onderstaand had ik aangemaakt, maar er wordt hier dus naar een bepaald gebied gerefereerd, terwijl dat iedere keer anders is.
De eerste twee regels selecteren het gebied dat voorzien moet worden van de naam.
De onderste regels wisselt dus telkens en ik weet niet hoe ik dit zo krijg dat dit variabel wordt.


ActiveCell.Range("A1:M1").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveWorkbook.Names.Add Name:="Test", RefersToR1C1:="=Test!R1C1:R55C13"

 

[HSV]

Twee versies in onderstaande code.

Sub hsv()
Sheets("blad1").Cells(1).CurrentRegion.Columns(1).Resize(, 13).Name = "Test"
'of
'With Sheets("blad1")
'.Cells(1).Resize(.Cells(Rows.Count, 1).End(xlUp).Row, 13).Name = "Test"
'End With
End Sub

 

[Phill]

Geweldig. Heel hartelijk bedankt!