Macro for adding named sheets in workbook from list

cre8v1 

I believe your question is to add worksheets (copied from a template) into a workbook based on a list, rather than list all the worksheets in the workbook.

The attached file has a working example, which includes the following short and easy to adapt (to your own situation) piece of code:

Sub AddSheets()

Dim SheetList As Object
Dim i As Integer
Dim SheetName As String

Set SheetList = ThisWorkbook.Sheets("SheetsToAdd").Range("A1").CurrentRegion

For i = 1 To SheetList.Rows.Count

    SheetName = SheetList.Cells(i, 1)

    Sheets("Template").Select
    Sheets("Template").Copy After:=Sheets(Sheets.Count)

    ActiveSheet.Name = SheetName
    
Next i
    
End Sub