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