Making all sheets very hidden expect one

[Legacy 146660]

Hi I am lookig for a VBA code or a way where if i can add a new sheet to my active workbook and it will still make all the sheets very hidden expect one (named).
I have written this macro but it is falling over as it is trying to make all sheets very hidden and excle wont all all sheets hidden.

Sub VeryHidden()</SPAN>


Dim sSheetName As String</SPAN>

For Each wsSheet In ActiveWorkbook.Worksheets</SPAN>
If wsSheet.Name = "Sheet1" Then wsSheet.Visible = xlSheetVisible</SPAN>
If wsSheet.Visible = xlSheetVisible Then</SPAN>
wsSheet.Visible = xlSheetVeryHidden</SPAN>

End If</SPAN>
Next wsSheet</SPAN>

End Sub</SPAN>


Please can anyone help ....

 

[dmt32]

Hi,
try this and see if does what you want:

Sub VeryHidden()
    Dim wsSheet As Worksheet, wsKeepVisible As Worksheet
    
    
    Set wsKeepVisible = ThisWorkbook.Worksheets("Sheet1")
    
    wsKeepVisible.Visible = xlSheetVisible
    
    For Each wsSheet In ThisWorkbook.Worksheets
    
        If Not wsSheet.Name = wsKeepVisible.Name Then wsSheet.Visible = xlSheetVeryHidden


    Next wsSheet


End Sub

Dave

 

[mumps]

Sorry. Mis-posted