Macro Copiar Nombre de lista en hoja 1 y utilizar el formato de hoja 2

Solicito de su ayuda para poder crear un macro que genere diversas hojas en excel usando una lista en la hoja 1 (BSC), pero que al crear las nuevas hojas con los nombres de la hoja 1 utilice el formato que esta en la hoja 2 (Formato)

Tengo este codigo pero no se como llamar para que utilice la hoja 2 como base para crear cada hoja nueva

Sub OterSheets()
Dim rng As Range
Dim Cell As Range
Dim Fomato As Worksheets
Dim BSC As Worksheets

On Error GoTo Errorhandling
Set rng = Application.InputBox(Prompt:="Select cell range:", _
Title:="Create sheets", _
Default:=Selection.Address, Type:=8)

For Each Cell In rng
If Cell <> "" Then
Sheets.Add.Name = Cell
ActiveSheet.Move After:=Worksheets(Worksheets.Count)

End If

Next Cell

Errorhandling:
End Sub

1 Respuesta

Respuesta

¿En la hoja "BSC" en cuál columna tienes la lista de nombre? ¿En cuál celda empieza?

¿En la hoja "Formato" en cuál celda quieres poner el nombre?

¿Cómo se van a llamar las nuevas hojas?

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas