Duplicar pestaña con nuevo nombre

[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