Copy multiple sheets to new workbook

I would like to copy sheet "PPR", "Consolidation", "Pivot" to a new workbook and prompt user to input a name and then save this new workbook to the same Dir

My idea is to have a button on the Main sheet for user to click - in turn will make a copy of the 3 existing templates above into a new workbook, execute the codes and save.

I found this piece of code from ms, but it can only move to an existing wb.

I hope you can help me with this function.

Thank you,

Please Login or Register  to view this content.

I think I have the prompt for name & save on the same location

Please Login or Register  to view this content.

I can't test the SaveAs command you used, I get an error on that xlOpenXMLWorkbook, but if it works for you...

Please Login or Register  to view this content.