Copy Workbook, Save and Rename

[questionguy]

I've done intensive research in Google, but no code worked for what I am trying to achieve here...

Basically, I have a workbook with couple worksheets. I would like to copy the entire file (it's in .xlsm), create a copy, rename and save, and close my original.

Any ideas how that would work?

[Norie]

What have you tried?

[questionguy]

On that one for instance, I would like to change the extension to "xlsm" and eliminate the Save As pop up... Is that possible?

Please Login or Register  to view this content.

[questionguy]

I like this code better; however, there appears to be an error with "ws.[A1].pastespecial paste:=xlvalue"
Anybody know why??

Please Login or Register  to view this content.

[Norie]

If the only problems with the first code is the prompt and file format that can easily be handled.

For the format just change xlOpenXMLWorkbook to xlOpenXMLWorkbookMacroEnabled.

You might need to change the filter in GetSaveAsFilename too.

To get rid of the prompts add this at the start of the code.

Please Login or Register  to view this content.

Remember to reset alerts after the code.

[questionguy]

@Nori, everything works fine now, except it's still asking whether I'd like to save as or not even though I put displayalerts code at several different places (beginning, middle, end, etc)... Is there another way of getting rid of prompts?

[Norie]

Where exactly did you put the code to suppress alerts?