help needed: choose files and merge them

Hi,

I have the following problem:
User has to choose files and want to populate a database using the firs sheet of each file.

i have a working code, however I am not satisfied with it:

Please Login or Register  to view this content.

what I would like to do is have a function to open files with the attributes of output TextBox. Cannot do it as I could not write TextBox from a function. Is there a way around?

This following code is ugly, but works. It opens a files, select all data from the sheet, activates the new worksheet and copies the data. There should be a way to copy entire sheets easier, but I could not make it work. Any ideas?

Can it be done using a function or sub with the arguments "source file name" " source sheet", and "Destination file name", "destination sheet"?

Please Login or Register  to view this content.

Thank you in advance for the ideas!

Put filenames in column A starting from A3 and run this macro

Please Login or Register  to view this content.