Hello Sublimus,
Let's assume that the new sheet names are in Sheet2, Column A starting in A2 and that you've named your template sheet "Template". Now try the following code, placed in a standard module and assigned to a button:-
Option Explicit
Sub CreateSheetsFromTemplate()
Dim wsT As Worksheet
Dim wsNames As Range, Rng As Range
Set wsT = Sheets("Template")
Set wsNames = Sheet2.Range("A2:A" & Rows.Count).SpecialCells(2)
Application.ScreenUpdating = False
For Each Rng In wsNames
If Not Evaluate("ISREF('" & CStr(Rng.Text) & "'!A1)") Then
wsT.Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = CStr(Rng.Text)
End If
Next Rng
wsT.Select
Application.ScreenUpdating = True
End Sub
This code should do as you ask and create new sheets from your Template sheet and naming them from the list in Column A of Sheet2.
Test this in a copy of your workbook first.
I hope that this helps.
Cheerio,
vcoolio.