Macro to prompt user for folder location and save acitve workbook.

I am using following code which prompts the user for a folder to save a copy of the active workbook. The workbook I want to copy is in .xlsm format. I want to save the new workbook in an .xlxs format (which will remove the code). The code works fine if I am only saving one single sheet

Please Login or Register  to view this content.

. The issue is when I try to save two sheets. I tried using this in place of

Please Login or Register  to view this content.

Full code as follows. I am basically trying to save both worksheets into one workbook. thanks

Please Login or Register  to view this content.

Figured it out. I need to use

Please Login or Register  to view this content.