Navngivning af nye Exceldokumenter

Jeg har et Exceldokument, hvor jeg i første faneblad har en lang liste med navne

Indholdet af faneblad nr 2 indeholder en masse ting som skal kopieres over til et nyt exceldokument og herefter navngives og gemmes.
Jeg ønsker at ende op med 50 kopiere af faneblad nr. 2, hvis man antager at jeg har 50 navne i kolonne A i det første faneblad.

Hvis i ser nedenstående kode, så mangler jeg et stykke kode som laver en lykke og dynamisk udfylder feltet "xxxxxxxxxxxxx" nedenfor.

Giver dette mening ?


Dim Sti As String
Sti = ThisWorkbook.Path & "\" & "Navnedokumenter"

    If Dir(Sti & " " & Format(Date, ("DD-MM-YYYY")), vbDirectory) = "" Then
        MkDir (Sti & " " & Format(Date, ("DD-MM-YYYY")))
    End If

ActiveWorkbook.SaveAs Filename:=Sti & " " & Format(Date, ("DD-MM-YYYY")) & "\" & "Navnedokumenter " & xxxxxxxxxxx & " " & Format(Date, ("DD-MM-YYYY"))
ActiveWorkbook.Save
ActiveWorkbook.Close