Duplicar pestaña con nuevo nombre

[TheCastor]

Muy buenas, estoy intentando hacer una hoja de calculo.
Necesito que al dar al boton crear, este me cree una pestaña nueva, pidiendome nombre y dandole a la pestaña el formato que tengo en la pestaña "Plantilla".

Tras mucho buscar he conseguido que me pida el nombre y la cree con ese nombre, pero no consigo que le de el formato que quiero.

Os dejo por aqui el codigo por si me podeis ayudar.

Código:

Private Sub Crear_Click()
Dim nombreHoja As String
nombreHoja = InputBox("Introduce Mes y Año:")
If nombreHoja = "" Then Exit Sub
Dim hoja As Worksheet
Set hoja = ActiveWorkbook.Sheets.Add
hoja.Name = nombreHoja

    Sheets("Plantilla").Select
    Sheets("nombreHoja").Select
    Cells.Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("A1").Select
    Sheets(nombreHoja).Select
    Cells.Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("A1").Select

End Sub

[mrocf]

Intenta con:

Código PHP:

Private Sub Crear_Click()
Dim nombreHoja$
 
nombreHoja = InputBox("Introduce Mes y Año:")
If nombreHoja = "" Then Exit Sub
Sheets("Plantilla").Copy , ActiveSheet
ActiveSheet.Name = nombreHoja
End Sub