Tabbladen maken op basis van een lijst

[HansjeWteN]

Hallo,

Ik heb een lijst met ongeveer 100 vestigingen. Ik wil graag een macro maken waarbij voor iedere vestiging een apart tabblad in Excel met de naam van de vestiging wordt gemaakt. Heeft iemand een voorbeeldje?

 

[VenA]

Zoiets?

Sub VenA()
  ar = Blad1.Cells(1).CurrentRegion
  For j = 2 To UBound(ar)
    If IsError(Evaluate("'" & ar(j, 1) & "'!A1")) Then Sheets.Add(, Sheets(Sheets.Count)).Name = ar(j, 1)
  Next j
End Sub

En anders https://www.helpmij.nl/forum/announcement.php?f=5

 

[HansjeWteN]

Ik snapput nog niet

 

[VenA]

Begin met je gegevens in A2 en draai de macro.

 

[HansjeWteN]

thnx!