Vanaf cel tot laatste rij selecteren en naam geven.

[jorian8]

Goedendag,

Ik wil van A2 tot de laatste rij de naam leveranciers geven.

Ik heb tot nu toe dit:

Sub selecterentotlaatserij()
Dim LastRow As Long
With Worksheets("blad2")
LastRow = .Cells(Rows.Count, "A").End(xlUp).Row
.Range("A2:A" & LastRow).Select
End With
End Sub

Hoe kan ik ervoor zorgen dat deze range leveranciers wordt genoemd?

 

[spaarie]

Is voldoende

Sub Spaarie()
    ActiveWorkbook.Names.Add "Leveranciers", Sheets("blad2").Columns(1).SpecialCells(2).Offset(1).SpecialCells(2)
End Sub