To save as all worksheets. But modules not deleted.

hi, I want the macro in this way.
All sheets of the workbook. The name of the worksheet to a new workbook save as.
But the modules do not get deleted. help me please.

For this code. Necessary additional rows.
additional rows = modules do not get deleted

Please Login or Register  to view this content.