cellen selecteren

[Guidolavespa]

Ik wens aan een range een naam te geven vanaf een lege cel tot einde van de kolom waar iets staat

Dus
A1 = leeg
A2 = iets
A3 = iets

de formule hieronder werkt als A1 niet leeg is. Maar hoe aan te passen als A1 leeg is?


'naam xxx toekennen
ActiveWorkbook.Names.Add Name:="xxx", RefersTo:=Sheets("test").Range("A1", Sheets("test").Range("A1").End(xlDown))

 

[Guidolavespa]

Gevonden !

gewoon nogmaals .End(xlDown) aan toevoegen

ActiveWorkbook.Names.Add Name:="xxx", RefersTo:=Sheets("test").Range("A1", Sheets("test").Range("A1").End(xlDown).End(xlDown))

Bedankt aan mezelf