¿Una macro excel para duplicar un archivo varias veces?

[Carlos Grados Ames]

Tengo un archivo de excel que quiero darselo a cada alumno pero con su nombre en el nombre del archivo, ejemplo:

Plantilla (es el archivo de macro) y que cree

Plantilla Juan

Plantilla Ana

Plantilla Maria

tengo el listado de nombres en una hoja, el nombre del alumno tambien apareceria dentro de una hoja oculta para que nadie me presente archivo de otro.

Lo hice con el grabador pero de esta manera siempre hay problemas

Quisiera que este preparado para hacer archivos por igual cantidad a la de los alumnos, si en el listado hay 3 que haga tres archivos, si hay 10 que haga 10 archivos

Y que los grabe en la misma ubicación en donde esta el archivo con la macro que duplica

La macro con la grabadora es esta:

Sub replica1()

'

' replica1 Macro

'

Sheets("Hoja2").Select

Sheets("Hoja2").Copy

ActiveCell.Select

ActiveCell.FormulaR1C1 = "juan"

ActiveWorkbook.SaveAs Filename:="C:\Users\LABEXX\Desktop\archi… juan.xlsx", _

FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

ActiveCell.Offset(1, 0).Range("A1").Select

ActiveCell.FormulaR1C1 = "alberto"

ActiveWorkbook.SaveAs Filename:= _

"C:\Users\LABEXX\Desktop\archivo alberto.xlsx", FileFormat:=xlOpenXMLWorkbook _

, CreateBackup:=False

ActiveCell.Offset(1, 0).Range("A1").Select

ActiveCell.FormulaR1C1 = "maria"

ActiveWorkbook.SaveAs Filename:="C:\Users\LABEXX\Desktop\archi… maria.xlsx" _

, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

End Sub

[tese1969]

Adjunta archivo ejemplo..........normas del foro.....

Un saludo,

Tese