Renombrar automáticamente una hoja según una celda

Buenas noches,

Intenta colocar esta macro en ThisWorkbook

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Source As Range) 'si c6 se ingresa manualmente On Error Resume Next Sh.Name = Sh.[c6] End Sub Private Sub Workbook_SheetCalculate(ByVal Sh As Object) 'si c6 contiene una fórmula On Error Resume Next Sh.Name = Sh.[c6] End Sub 

Saludos

Buenas noches
Para que un colaborador pueda ayudarte, sería deseable que pusieras un archivo anonimizado a disposición

1) Ve a https://www.cjoint.com/
2) Haz clic en [Examinar] para seleccionar tu archivo
3) Desciende hasta la parte inferior de la página y haz clic en [Crear el enlace Cjoint]
4) Después de unos segundos, se mostrará la segunda página con el enlace
en azul subrayado; lo seleccionas y haces "Copiar"
5) Regresa a tu conversación en comenzamarche y en tu mensaje de respuesta haces "Pegar".
Saludos

Hola,

Es exactamente lo que pensaba... Tu pregunta no coincide del todo con tu necesidad (por ejemplo, no se trataba inicialmente de duplicar las hojas, pensaba que todas ya estaban creadas).
Creo que tienes tu hoja "SEM" que contiene toda la información. Mi idea es:
- en primer lugar, crear una pestaña "Modelo" cuyas fórmulas sean adecuadas independientemente del valor en la celda C6;
- luego, duplicar esa pestaña "Modelo" mediante macro y dar el nombre apropiado a cada pestaña y completar la celda C6.

Aquí está mi propuesta: https://www.cjoint.com/c/FLhlmI3iMrJ
Solo tienes que hacer clic en el botón para crear todas las pestañas.

¡Hasta luego!