Combine multiple worksheets into one with rename

I have the following code that will combine multiple worksheets into one. What I was looking for was an alteration to this code or an additional macro to name each tab of the combined workbook to the file name of the original file. For example, 3 worksheets titled property1, property2, property3 all having 1 tab named sheet1. When combined new workbook will have a file name of Book1 with worksheet names of property1, property 2, and property 3. Any help in this will help greatly.
if more info in needed please ask and I will be prompt to respond. Thanks in advance,
-J

Please Login or Register  to view this content.

Returns an error
"Compile Error: Wrong number of arguments or invalid property assignment"

If there is more information you need to assist you in fixing this error let me know and I'll answer whatever you need. Thanks again.

Sorry to seem ungrateful when it names the tabs from the file names I am left with an odd name. For example if the original file was named Property1 when combined into the worksheet the associated tab is named "Property1 Sheet1 (2)". Is it possible to have it's name be just "Property1"?

Good catch. I failed to mention each file will contain only one sheet.

Works like a charm. Thank you so much.

Unforseen Problem. Apparently some workbook contains more than one worksheet. Good note is only the first sheet is needed. Is it possible to make this work still?