Actividad pública reciente
Ha valorado "Excelente" la respuesta
Como agregar los nombres de las nuevas hojas creadas automáticamente a celda
Debes poner esta macro en Thisworkbook: Private Sub Workbook_NewSheet(ByVal Sh As Object) Dim nueva As String nueva = ActiveSheet.Name Sheets("nombres").Select Range("A1").Select Do ActiveCell.Offset(1, 0).Select Loop Until ActiveCell.Value = ""...