Macro to Unhide Sheets

[J G]

So I'm just getting my feet wet with macros and am learning that there are about a hundred ways to write the code for the same result. I'm trying to find a macro to unhide all sheets and there are plenty on the web to choose from however none of them seem to work in my workbook.

This is the latest one I'm trying

Sub UnhideAllSheets()
'Unhide all sheets in workbook.
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
ws.Visible = xlSheetVisible
Next ws
End Sub

Why doesn't it work?

 

[Nebu]

You should put this code in your "Thisworkbook" instance and run it from there and there should be atleast one sheet unhidden for the macro to work . It works perfectly at my end...

 

[Somendra Misra]

Hi J G,


The code you posted above works well in my Excel 2010. I had inserted new module and pasted your code there and run the code, all the hidden sheet becomes visible.

Regards,

 

[Deepak]

Hi,

You might doing something wrong. Pls share your sample workbook so that same can address.

 

[J G]

Thanks very much for verifying that the code worked. I had protected the workbook and the code could not over come that. Rookie mistake.

Thanks very much.

 

[Somendra Misra]

You are Welcome!!!

Regards,