Creating new sheet in workbook that is the same as an active sheet

[Simmo1313]

Hi All,

I have a workbook that has a master project worksheet page ("MAIN") that is a summary of all individual projects worksheets.

On the main page I want to assign code to a button that will add a new worksheet that is a copy of a template worksheet within the same workbook ("TEMPLATE").

For ease references within the main worksheet it would be preferable if the new page could also be named within this macro and positioned at the end of the worksheet tabs.

Thanks in advance

 

[Michael M]

You could have simply recorded a macro to do this

Sub MM1()
    Sheets("TEMPLATE").Copy After:=Sheets(Sheets.Count)
    ActiveSheet.Name = "copy of template"
End Sub

 

[Simmo1313]

Yes but that does not enable me to name the sheet as well.

I found some code that enables me to name the new sheet, is there a way of combining the recorded macro with this code so that I can create a new sheet, name it and have it duplicate the TEMPLATE

Sub AddNameNewSheet1()
Dim Newname As String
Newname = InputBox("Name for new worksheet?")
If Newname <> "" Then
Sheets.Add Type:=xlWorksheet
ActiveSheet.Name = Newname
End If
End Sub

 

[Michael M]

Use

Sub MM1()
Dim ans As String
ans = InputBox("Please provide the NEW Sheet Name")
Sheets("TEMPLATE").Copy After:=Sheets(Sheets.Count)
    ActiveSheet.Name = ans
End Sub

 

[Simmo1313]

Use

Sub MM1()
Dim ans As String
ans = InputBox("Please provide the NEW Sheet Name")
Sheets("TEMPLATE").Copy After:=Sheets(Sheets.Count)
    ActiveSheet.Name = ans
End Sub

Thank you very much that is exactly what i need.

 

[Michael M]

glad it was what you wanted...