Copier et nommer

En supposant que le nom du fichier se trouve dans la cellule A1 de la première feuille :

Sub copie()
Dim MyWs As Worksheet
Set MyWs = ActiveWorkbook.Worksheets("Feuil1")
ActiveWorkbook.SaveCopyAs (MyWs.Range("A1"))
End Sub