VBA met automatische naam

@HSV,
't is maar net waar je even op zoekt names.add of range.name:d
Wel raar overigens dat een naam niet uniek hoeft te zijn.

Uiteraard is die uniek, je overschrijft het immers.

@HSV,
Is niet geheel wat ik bedoel. Je mag dezelfde namen aanmaken weliswaar met verwijzingen naar andere bladen maar toch.

Dan zul je naar het blad moeten verwijzen.

Het lukt.. Kan het zijn dat hij niet 'activesheet' staat afgesteld? Ik probeer hem naar een nieuwe pagina te kopiëren, maar dat faalt... Hij pakt weer de naam van de andere range..

Sub TEST()
Dim r1 As Range, r2 As Range
For Each cl In Rows(1).SpecialCells(-4123)
If cl <> "" Then
b = True
Set r1 = Nothing
Set r2 = Nothing
For Each cl1 In Range(cl.Offset(1), Cells(Rows.Count, cl.Column).End(xlUp))
If cl1 <> "" And b Then
Set r1 = cl1
Set r2 = cl1
b = False
ElseIf cl1 <> "" Then Set r2 = cl1
End If
Next cl1
If cl.Address <> Range(r1, r2).Address Then Name = Replace("A" & cl, " ", "_")
End If
Next cl
On Error GoTo 0
MsgBox "Alle dynamische Naam bereiken zijn aangemaakt!", vbInformation, "Klaar"
Exit Sub
Exit Sub
End Sub

Je vertelt ons eigenlijk niet WAAROM je dit wilt.

Maak svp gebruik van codetags.
De code faalt gewoon dit heeft niets met 'ActiveSheet' te maken. Je vergeet wat dingen en je hebt wat onzin toegevoegd.

staat nergens in de aangereikte code.


Lijkt mij ook niet logisch. Een msgbox die een fout kan opleveren en dan 2 x exit sub boven de end sub?

Lees a.u.b. de help over On error goto 0