Unhide a sheet

[windsurfit]

I have a workbook with multiple sheets. Several are hidden but the names are available in the VB.

I am looking to permanently unhide my sheet with the name "Dist"

I have been over the forum but just looking for the basics here to unhide this one sheet and maybe the other sheets in my workbook.

Thx

 

[MARK858]

Unhiding one sheet is just

Sheets("Dist").Visible = True

but what exactly do you mean by "permanently unhide" and "maybe the other sheets"?

 

[windsurfit]

Since I will need it, how about complete code to unhide all hidden sheets in the workbook?

A little more complicated I'm sure. But easier then placing code into each hidden VB?

 

[MARK858]

Sub UnhideAllShts()
    Dim ws As Worksheet
 
    For Each ws In ActiveWorkbook.Worksheets
    If ws.Visible = xlSheetVeryHidden Or ws.Visible = xlSheetHidden Then _
    ws.Visible = xlSheetVisible
    Next
End Sub

or even just

Sub UnhideAllShts2()
    Dim ws As Worksheet
 
    For Each ws In ActiveWorkbook.Worksheets
        ws.Visible = xlSheetVisible
    Next ws
End Sub

 

[windsurfit]

Ok, I tried it out.. placed the code (first you provided) in the VB for this Thisworkbook but got a error of "400" appearing.

Also tried to place it in the individual & hidden "Dist" sheet as well but with same end result. Error code 400?

 

[MARK858]

Works fine for me in a regular module (it doesn't go in a sheet module that is for worksheet event code, or in the Thisworkbook module as that that is for workbook event code. Although neither should give that error).

Are you sure you don't have any workbook protection set or you have tried adding the word Select to the code?

 

[windsurfit]

Ok, confirmed I have placed into a regular module.. Now I am getting a diff error..... Runtime error 1004, Method visible of object_worksheet failed
and debug takes me to the last line in code highlighted yellow: ws.Visible = xlSheetVisible

So, getting closer?

 

[MARK858]

Again, any workbook protection set?

 

[windsurfit]

Oh sorry, meant to confirm that none showing.

 

[MARK858]

Can you just run the below macro to be sure please...

Sub IsWbProtected()
    With ActiveWorkbook
        If .ProtectWindows Or .ProtectStructure Then
            MsgBox "This workbook is protected"
        Else
            MsgBox "This workbook is not protected"
        End If
    End With
End Sub