Hi there,
I have a sheet with 25 pages, where the ranges of the pages are named
ranges. I have a different number of pages to print out, from only 3 to all
25. I find that the solution should become like:

Sheet1.PageSetup.PrintArea = Sheet1.Range(Union(rng1, rng2, rng3,
....)).Address

But how to come there? In words:
Identify the pages with "Rows.hidden = False". If True, the name of the page
should be added to an array.
After looping through the sheet, there is a array to add into the Union
formula

Am I right? If yes - how do I do this in vba? My weakest point in VBA is
Arrays, and I can't figure out how to compare/match with the named ranges of
the pages.

Maybe you got an other solution on the shelf with an other approach?

Please, help me

/Regards