I have an excel 2007 workbook containing a load of 'veryhidden' worksheets

I usually unhide with the following script but today its not happening!

Any ideas?

Sub UnhideAll()
Dim WS As Worksheet
For Each WS In Worksheets
WS.Visible = xlSheetVisible
Next
End Sub

 

have you recently migrated from 2003 to 2007?

 

nope, used it for ages.

 

Have you got more than one workbook open? could need modifying to:

For Each WS In ThisWorkbook.Worksheets or ActiveWorkbook.Worksheets

?

 

Na, just this one. And I put the module in VBA Project for this particular workbook anyway.

Stumped to be honest as my VBA skills are limited!

 

if you run it in step-through / debug mode and hover the pointer over 'WS' or 'Worksheets', does it show you the number of objects in the collection?

another thing worth checking might be that you haven't got events/updating disabled?
in the immediates windows (View, Immediates) type Application.EnableEvents=True and press enter. Same with Application.ScreenUpdating.

Send me a skeleton sheet if you like -

 

Ditto, bung one through to me if you like, I'll have a look at it for you: