Excel VBA Code: Hide Multiple Sheets with exception to others

[mizogy]

Hi All

Can anyone help with my condurum which I can't get to work:
For Each ws In Worksheets
If ws.Name = "Sheet1" And ws.Name = "Sheet20" Then ws.Visible = xlSheetVisible Else ws.Visible = xlSheetHidden
Next

For some reason it seems to be also hiding the sheets I've defined to remain visible, confused!?!

Thanks

Mizogy

 

[FormR]

Hi, the sheet name can't equal "Sheet1" AND "Sheet20" at the same time:

If ws.Name = "Sheet1" Or ws.Name = "Sheet20" Then ws.Visible = xlSheetVisible Else ws.Visible = xlSheetHidden

 

[mizogy]

Well spotted, thanks ever so much! Mizogy

Hi, the sheet name can't equal "Sheet1" AND "Sheet20" at the same time:

If ws.Name = "Sheet1" Or ws.Name = "Sheet20" Then ws.Visible = xlSheetVisible Else ws.Visible = xlSheetHidden