Displaying (Unhiding) All Worksheets

[EdWoods]

Hi,

How can I have a macro unhide (show) all hidden (including xlveryhidden) worksheets, no matter what they're called?


Cheers.

[DanzaNZ]

Hi mate.

Just a thought.... you could use a list box to show all sheet tabs in a work book then go something like this:
Worksheets (listbox.value).Visible = True

I have not tested this, but mix it up a bit
There is most likely an easier way, but I find the hard and complicated ways are more fun

Cheers
Dan

[EdWoods]

Thanks Dan, but I really wanted it to do it automatically (in the background) without having to specify what sheets to unhide (just all of them).

Cheers.

[DanzaNZ]

Would you want to look at a Workbook_Open Event?
This would mean that when the workbook opens it runs the code without any input required.

[EdWoods]

Thanks again Dan.

I have no problem initiating the macro to unhide the sheets. I just need to know the code to automatically unhide all sheets, no matter what they're called.

Cheers.

[xladept]

Maybe:

Please Login or Register  to view this content.

[DanzaNZ]

Ha! you bet me to it

Here's one too. for a Workbook_open Event

Private Sub Workbook_Open()
Dim Sheet As Worksheet
For Each Sheet In ActiveWorkbook.Worksheets
Sheet.Visible = xlSheetVisible
Next Sheet
End Sub


Copy this into your workbook code

[EdWoods]

That looks like it does it.

Thanks.