Excel - sr.

Estimado senores tengo el siguiente problema que quiero resolver con macros

En la hoja 1 de Excel tengo 300 nombres de personas los cuales quiero que la macro salve cada uno de los nombres en archivos de excel diferentes, hasta llegar al ultimo me podrian ayudar.

Gracias.

Hola, aquí te dejo un procedimiento que te puede ayudar a solucionar la situación.

Public Sub CrearLibros()
Dim Fila As Integer, MiLibro As New Workbook, Nombre As String
Fila = Hoja1.Range("A2").End(xlDown).Row
For i = 2 To Fila
Cells(i, 1).Activate
Nombre = Cells(i, 1).Value
Set MiLibro = Workbooks.Add
MiLibro.SaveAs Filename:=Workbooks(1).Path & "\" & Nombre
MiLibro.Activate
MiLibro.Sheets(1).Cells(1, 1).Value = Nombre
MiLibro.Save
MiLibro.Close
Next i
End Sub

Saludos,
Fernando