Better way to unhide/hide multiple sheets

I have a macro that I want to unhide 10 sheets print based on a formula (as I need to unhide them before I can print them I believe) then hide them again

right now I have the following line 10 times to unhide the sheets.

Please Login or Register  to view this content.

etc to 10

is there a better way to write this? or am I stuck with these 10 lines at start and then 10 "hide" lines at the end?

Here are some ideas.
edit: corrected the code

Please Login or Register  to view this content.

I tweaked this for another set of pages, it works good, but if a page is visible it hides it, then I get it error.
Is there any way that it can ignore sheets that are visible and then hide all the visble ones after it has deleted what needs to be deleted?

Please Login or Register  to view this content.