hides all sheets except those standing in

[KlausW]

Hi everyone

I would like to use this VBA-code so that it hides all sheets except those standing in

ws.Names = Array("Højde", "VPL", "Fast besætning", "Adresseliste Fast og VPL", "Adresseliste")

But it doesn’t do it, someone who can help.

All help will be appreciated.

Best Regards

Klaus W.

Sub Hide()

 Dim ws As Worksheet
 
 ws.Names = Array("Højde", "VPL", "Fast besætning", "Adresseliste Fast og VPL", "Adresseliste")
 
 For Each ws In ws.Names
 
 If ws.Name <> ws.Names Then
 
wsNames.Visible = xlSheetHidden

Next ws
 End If

 End Sub

 

[JEC]

for each sh in sheets
    if sh.name <> activesheet.name then sh.visible = false
next

 

[rlv01]

Try it this way:

Sub Hide()
    Dim ws As Worksheet
    
    For Each ws In ThisWorkbook.Worksheets
        Select Case ws.Name
            Case "Højde", "VPL", "Fast besætning", "Adresseliste Fast og VPL", "Adresseliste"
                ws.Visible = xlSheetVisible
            Case Else
                ws.Visible = xlSheetHidden
        End Select
    Next ws
End Sub

 

[KlausW]

Try it this way:

Sub Hide()
    Dim ws As Worksheet
   
    For Each ws In ThisWorkbook.Worksheets
        Select Case ws.Name
            Case "Højde", "VPL", "Fast besætning", "Adresseliste Fast og VPL", "Adresseliste"
                ws.Visible = xlSheetVisible
            Case Else
                ws.Visible = xlSheetHidden
        End Select
    Next ws
End Sub

thanks just as it should be have a nice day Best regards from Denmark KW