copy all workbooks in a folder to a different workbook

hi all,
i was handed-over a VBA code which copies the 1st sheet of all workbooks in a folder to a different workbook.
there are a few minor changes i wanted on this code.

1) The folder also contains the workbook to which the other workbooks are to be copied. Quite obviously, we have to open the destination workbook and run the code to copy those files to this workbook. But what happens is, at the end an error message appears saying that the "destination" folder couldn't be opened. So i was trying to edit the code so that it wouldn't not try to open the 'destination" workbook.

2) After all sheets have been copied, i want the original sheet to be active one and not the sheet which have been copied last.

My code-

Please Login or Register  to view this content.

thanks in advance.

Hi prajesh
JB has worked example here https://sites.google.com/a/madrocket...ssistant/files

I went through your code. Try changing this line -

Please Login or Register  to view this content.

to

Please Login or Register  to view this content.

and see if it solves your problem.

Have a look at my code here. It's easily adaptable