Creating New Tabs based on a Template and a List

[cotatliad]

Hello there!

I need to create multiple copies of a template worksheet I got and name each copy based on a list I have. Is there a quick way of doing it? (Note, I have virtually no VB skills).

Thank you very much!

 

[CWatts]

I'll assume "virtually no" means you know where to put the code.. You can try the below code. Just make sure you have a sheet titled "Template" or adjust the code to suit your needs. Then, on whatever tab you have your list, highlight the cells and it will make tabs for each cell that you have highlighted.

You'll get errors on blanks, just reply and we can modify code to work around it.

Sub MakeSheets()
Application.ScreenUpdating = False
Application.Calculation = xlManual
 
Dim StartingSheet As String
StartingSheet = ActiveSheet.Name
 
For Each c In Selection
    Sheets("Template").Copy After:=Sheets(Sheets.count)
    Sheets("Template (2)").Name = c.Value
Next c
 
Sheets(StartingSheet).Select
 
Application.Calculation = xlAutomatic
Application.ScreenUpdating = True
 
MsgBox "Done"
End Sub

 

[cotatliad]

This works perfectly!!! Thank you very much!!

 

[CWatts]

A minor change to account for blanks in the list should you need it.

Sub MakeSheets()
Application.ScreenUpdating = False
Application.Calculation = xlManual
 
Dim StartingSheet As String
StartingSheet = ActiveSheet.Name
 
For Each c In Selection
    If c.Value <> "" Then
        Sheets("Template").Copy After:=Sheets(Sheets.Count)
        Sheets("Template (2)").Name = c.Value
    End If
Next c
 
Sheets(StartingSheet).Select
 
Application.Calculation = xlAutomatic
Application.ScreenUpdating = True
 
MsgBox "Done"
End Sub

 

[cotatliad]

Works like a charm! Thanks again!