Edit PageSetup for All Sheets

[driffert]

I need a macro that will select all sheets within the workbook and make changes to the PageSetup and then ungroup the sheets within naming a particular sheet since I won't know the sheet names. I wrote the below code that partially works. It doesn't change Pagesetup for all sheets nor does it ungroup all sheets without using a sheet name. Can someone tell me what I am doing wrong? Thanks.

Please Login or Register  to view this content.

[antoka05]

You can try with this code:

Please Login or Register  to view this content.

Regards,
Antonio

[driffert]

Thanks, Antonio. That worked