The following code creates a new sheet with a for every value on the "C" column from the "Zuordnung" sheet and renames the sheet with the contents of the cell.
However, if I want to make it dynamic, i.e. for a new sheet to be created every time I enter an additional entry in the column, what is the best way to do so?
Sub Temp_Gen()
Dim MyArray As Range, Mycell As Range
Set MyArray = Worksheets("Zuordnung").Range("C10")
Set MyArray = Range(MyArray, Worksheets("Zuordnung").Range("C32000").End(xlUp))
For Each Mycell In MyArray 'Generating the Template Sheet
Sheets("Temp").Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = Mycell.Value
Next Mycell
End Sub
Any help would be appreciated!
Bookmarks