Verwijzen naam tabbladen naar cel

[rolf7733]

Hoi,

Is het mogelijk om met een macro de naam van alle tabbladen te verwijzen naar de naam van één cel in desbetreffend tabblad?

Voorbeeld: ik wil dat tabblad 1 de naam van cel A1 krijgt in tabblad 1, ik wil dat tabblad 2 de naam van cel A1 krijgt in tabblad 2. Dit tot en met het laatste tabblad van het Excel bestand met een enkele macro dus niet dat ik per tabblad opnieuw een macro in moet voeren. Graag wil ik weten of er een snellere oplossing is dan het handmatig aanpassen van alle namen.

Met vriendelijke groet,

 

[VenA]

Probeer het zo eens

Sub VenA
For each sh in sheets
  sh.name = sh.[a1]
  next sh
End sub

 

[edmoor]

Zoiets, met de namen voor de bladen in kolom A:

Sub Hernoem()
    For i = 1 To Sheets.Count
        Sheets(i).Name = Cells(i, 1)
    Next i
End Sub

 

[rolf7733]

Gelukt, bedankt!