copy unhidden worksheets to another workbook

[ccsmith]

I should find a macro which can function as the following:
I need to copy all visible worksheet - except worksheet named DATA and macros which are in the original workbook - to a new workbook then use SaveAs to save a specific location.
Could you offer me a solution based on the attached sample file? Thanks.

[Alf]

I would suggest a macro like this.

Please Login or Register  to view this content.

This will "trim" your original file i.e. remove hidden worksheets and the "DATA" sheet and then bring up the file save dialog box so you can save the "trimed" file with a new name and at a new location keeping your original file intact.

Alf

[ccsmith]

Alf: Thanks for your suggestion, it is work almost perfectly but the saved file still contains the macros.
I would like to avoid to copy the macros to the new workbook. Do you have any solution for this as well?

[Alf]

A macro like this should fix the problem. Saving a file in the xlsx formate removes all macros as only xlsm files can contain macros.

The modified macro looks like this:

Please Login or Register  to view this content.

Alf

[ccsmith]

Alf: Brilliant solution. Many thanks for your reply and support.

[Alf]

You are welcome.

Thanks for feedback.

Alf