Unhide hidden sheets + Scroll all sheets

**Chris Baluyot** · 05-21-2008, 04:48 PM

Hi, Im in a little bind that need help.
Problem:
1) Need to identify any hidden sheets and unhide them.
2) Scroll to each sheets starting from the left most
3) identify if the sheet is protected.

Project scope.
Workbook contains between 15 to 25 worksheets.
Unhide all worksheets, then starting from the left most worksheet.
Scroll to each one. Unprotect the sheet if protected, then set the print area to print in single page, then protect the sheet again.
delete sheet if sheetname is Temp1, or work1, or work3, payplan, capture, "Extra (delimited)", or "Temporary (Last month)".

I hope that I have provide enough information here.
Thanks for any help...

**VBA Noob** · 05-21-2008, 05:11 PM

Might want to save your workbook first and say no to changes if it doesn't work the way you want.

Note. Assumes password is blank

Please Login or Register  to view this content.

VBA Noob

**fecurtis** · 05-21-2008, 05:36 PM

Its a bit longer but it should work. If you don't have a Password for these sheets, just delete that part of the code that says "Password:="Password". Also, the code won't cause the macro to stop partially through the code since when you do delete a sheet, Excel will, by default, ask you whether or not you want to permanently delete that particular sheet.

Please Login or Register  to view this content.

Hope this helps.

**Chris Baluyot** · 05-21-2008, 06:24 PM

Excellent !!! Thanks to both of you.

Unhide hidden sheets + Scroll all sheets

LinkBack

Thread Tools

Rate This Thread

Display

Unhide hidden sheets + Scroll all sheets

Unhide hidden sheets + Scroll all sheets

Thread Information

Users Browsing this Thread

Bookmarks

Bookmarks

Posting Permissions