I would like to copy a template sheet's contents(basically the entire sheet) to each newly created tab. The code below creates each new sheet tab and takes the values of a column range of companies on a separate sheet in the same workbook to name each new sheet tab. Where I am running into an issue is trying to get the actual "Template sheet"(within the same workbook) and it's contents copied to each one of these newly created tabs. This is the code I have so far.
'Select Company names
Sub AddSheets()
Dim cell As Excel.Range
Dim wbToAddSheetsTo As Excel.Workbook
Set wbToAddSheetsTo = ActiveWorkbook
For Each cell In Selection
With wbToAddSheetsTo
.Sheets.Add After:=.Sheets(.Sheets.Count)
On Error Resume Next
ActiveSheet.Name = cell.Value
If Err.Number = 1004 Then
Debug.Print cell.Value & " already used as a sheet name"
End If
On Error GoTo 0
End With
Next cell
End Sub
I would appreciate any suggestions that would copy that "Template Sheet" to each of the new tabs as the tab itself is being created.
Bookmarks