Combine all work books in a single folder to a master workbook

Combine all work books in a single folder to a master workbook. The Macro should prompt the user to specify the folder where all the files are located. Furthermore, each workbook should be added on the master workbook in a new worksheet tab of the same name as the copied workbook.

Here are the specifications:
I have a Master sheet which I would like combine the workbooks of employee (Emp-0001, Emp-0002 etc.) time sheets all of which are located in a single folder depending on the month of the year. For example all the time sheets for the employees are located in the folder Dec-2014 for December-2014, then Jan-2015 and so on. I want the macro in the master file to prompt the user to specify the location of the files and then add these files as separate worksheets inside the master file. I hope I am making sense.

I am new at VBA so please bear with me.

Regards,

Thank you for such a quick reply.

I tried the second code you sent. I am receiving the following error message:

Run time error '1004'
"D:\Projects\Consolidate\employees\Emp-001.xlsm" could not be found

on this line of code
Workbooks.Open Filename:=ActiveWorkbook.Path & "\" & strname

Thank you for such a quick reply.

I tried the second code you sent. I am receiving the following error message:

Run time error '1004'
"D:\Projects\Consolidate\employees\Emp-001.xlsm" could not be found

on this line of code
Workbooks.Open Filename:=ActiveWorkbook.Path & "\" & strname

Regards,

Thank you for your quick reply
I tried the second part of your code. Ran it. Absolutely nothing happened. The macro just created a employee imported folder. Did i do anything wrong?
I changed the paths in red as
fPath = "D:\Projects\Consolidate\employees\Emp-001.xlsm"

and all the red extensions as .xlsm

Regards,

I figured it out. You are a genius it works!!!! 5ive stars. Now instead of hard coding the file name is there a way to select the folder instead.
mehmetcik code does that is there a way combine your code with his option of selecting the folder?

Regards,

Unfortunately it generates an error at this line
Sheets("Sheet1").Move
Error message subscript is out of range.

Regards

Hello! JBeaucaire

Your code works like magic. Just one thing is there a way to remove the part in which the files are getting transferred to the imported folder? I tried removing that section of the code but it didnt work.
Regards,