Actividad pública reciente
Voto positivo a la respuesta
Macro para crear hojas con un nombre y copiar datos en ellas.
Te anexo la macro Sub CrearyCopiar() 'Por.Dante Amor Application.ScreenUpdating = False Set h1 = Sheets("Hoja1") For i = 4 To h1.Range("A" & Rows.Count).End(xlUp).Row existe = False For Each h2 In Sheets If h2.Name = h1.Cells(i, "A") Then existe =...