Loop To Hide Sheets

[Evagrius Ponticus]

Hi,

I am trying to avoid having to use the actual sheet name in the code below - I can't get it to work. I would prefer to use the code name for the sheet if possible? Thank you for any help.

Dim ws As Worksheet
Application.ScreenUpdating = False
Sheet2.Visible = xlSheetVisible
Sheet2.Activate
    For Each ws In ThisWorkbook.Worksheets
    If ws <> Sheet2 Then ws.Visible = xlSheetVeryHidden
    Next ws

 

[VoG]

Hello. Try

For Each ws In ThisWorkbook.Worksheets
    If ws.CodeName <> "Sheet2" Then ws.Visible = xlSheetVeryHidden
Next ws

 

[Evagrius Ponticus]

VoG - you're just awesome!! A thousand expressions of gratitude