Can't find a hidden worksheet that appears in the name manager

[pawlingJohn]

I have some hidden worksheet that i can not unhide. They appear in the Name
Manager and work in formulae but I can't do the unhide the usual way.

 

[Charlie]

When you say "in the usual way" I presume you mean using menu

Format-->Sheet-->Unhide

but the sheet is not found? It may be very hidden ("xlSheetVeryHidden")

use VBA to unhide all sheets this way

Dim Sheet As Worksheet

For Each Sheet In ThisWorkbook.Worksheets
Sheet.Visible = xlSheetVisible
Next Sheet

Hopefully MS won't come up with a Very Very Hidden later or we're in trouble

 

[PawlingJohn]

I'm completely VB ignorant. When i get this in and compiled what do I do?

 

[Charlie]

It depends. Is this a one-time thing that you need to do on a particular
workbook? Or do you need to unhide these sheets every time you open the
workbook (because someone else hides them?) Or do you want to click a button
to hide/unhide sheets as desired?

To unhide sheets automatically when the workbook is opened, put those lines
of code in the Workbook_Open subroutine:

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

 

[PawlingJohn]

Thanks Charlie

It depends. Is this a one-time thing that you need to do on a particular
workbook? Or do you need to unhide these sheets every time you open the
workbook (because someone else hides them?) Or do you want to click a button
to hide/unhide sheets as desired?

To unhide sheets automatically when the workbook is opened, put those lines
of code in the Workbook_Open subroutine:

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