Hi

I will work on it trying to be able to use getopenfilename
instead of dir() and some other little modifications (pasting values only)

You can find the examples on this page
http://www.rondebruin.nl/copy3.htm

Try it first and if you need help post back.
We will help you




--
Regards Ron de Bruin
http://www.rondebruin.nl



"uriel78" wrote in message ...
Thank you very very much....:-) it runs and rulezzzz!!!!!!

Tomorrow morning I will work on it trying to be able to use getopenfilename
instead of dir() and some other little modifications (pasting values only)
in accord to my data, I will try to study from your sute and
explanations!!!!

"Ron de Bruin" ha scritto nel messaggio
...
Oops, Change this

This line
basebook.Worksheets(1).Cells(1, Colnum).Value = mybook.Name

must be below this line
Set mybook = Workbooks.Open(FNames)