Creates a single file with the number of sheets according list with the model and the name

[Visor]

Dear forum friends I have an excel macro to connect with word, what it does is create based on the model originates INVITATION for each person's name and inside the name as the bookmark is placed a file.

What I would like you can help me is that a single file is created with the number of sheets according to the names on the list have the excel file and each sheet also have their respective name.

I know this is what you can do with correspondence, but what I require is it with macro code.

I appreciate your kind support to this

I upload the file to be seen

 

[Visor]

In the case of Word macro is possible with this code:

Sub copiarypasarAlasigPag()
' Word Macro
    Selection.MoveDown Unit:=wdLine, Count:=15, Extend:=wdExtend
    Selection.Copy
    Selection.MoveDown Unit:=wdLine, Count:=1
    Selection.InsertBreak Type:=wdPageBreak
    Selection.PasteAndFormat (wdFormatOriginalFormatting)
End Sub

but how is possible to do from excel?

 

[Visor]

Other code in the case of the word,

Sub copiarypasarAlasigPag()
    'Selection.MoveDown Unit:=wdLine, Count:=15, Extend:=wdExtend
    Selection.WholeStory
    Selection.Copy
    Selection.MoveDown Unit:=wdLine, Count:=1
    Selection.InsertBreak Type:=wdPageBreak
    Selection.PasteAndFormat (wdFormatOriginalFormatting)
End Sub

but I need code from Excel

Please can you help me???