Unhiding pages

[legepe]

Hi guys,
Ive got a workbook with 49 pages with 48 (hidden using - format / page / hide)
Rather than unhiding one by one, is there a way to unhide them all together?
Thanks
legepe

[uksrogers]

You're probably best doing a quick macro to do this. Something like this should do the trick.


Public Sub unhidepages()
Dim wb As Worksheet
For Each wb In ActiveWorkbook.Worksheets
wb.Visible = xlSheetVisible
Next
End Sub

[compariniaa]

i haven't tested this, but this should do it


sub unhide()
dim WS as worksheet
for each WS in worksheets
activesheet.visible=true
next WS
end sub

[legepe]

Thanks for that guys, it works a treat!!

[compariniaa]

i haven't tested this, but this should do it

sub unhide()
dim WS as worksheet

for each WS in worksheets
activesheet.visible=true
next WS
end sub

i just realized that "activesheet" should have been changed to "WS"
but you've got your solution, so i guess it's no big deal anymore

[Aaron Blood]

Um... Did you want that to work for ALL types of sheets or just worksheets?

You'd need to change the "Worksheets" ref to just "Sheets" if you wanted to include chart sheets as well.