Hi all,

Seems to be some information out there for this but i'm still struggling :s

I have one worksheet called "Template" which has some userforms, buttons, formulas and hyperlinks and then i have 200+ other worksheets which i created and named from a list using the below code:

Sub CreateWorkSheetByRange()
'create worksheets based on a range selected in a list in the same workbook

Dim WorkRng As Range
Dim Ws As Worksheet
Dim arr As Variant
On Error Resume Next

Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
arr = WorkRng.Value
Application.ScreenUpdating = False
For i = 1 To UBound(arr, 1)
For j = 1 To UBound(arr, 2)
Set Ws = Worksheets.Add(After:=Application.ActiveSheet)
Ws.Name = arr(i, j)
Next
Next
Application.ScreenUpdating = True
End Sub


What i would now like to do is copy and paste everything that is in the "Template" worksheet to all the other worksheets, including all formatting, buttons etc.. Also, if possible, for each of the worksheets i would like to insert a unique name in cell "A5" that is pulled from the same table as i selected from in the above code (note the names themselves are not the same).

Any help appreciated.


Stew