hiding sheets in vba

[lezawang]

Hi
I tried to hide the sheets, so I tried the first code and it did work but the second code is tell me I can not hide everything. Why this contradiction? Thank you.

Sub nosheets()
     ActiveWindow.DisplayWorkbookTabs = False
End Sub

Sub loopsheet()
y = 2
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
    ThisWorkbook.Worksheets(1).Cells(y, 1).Value = ws.Name
    y = y + 1
    '*** this part to hide sheet
    ws.Visible = xlSheetHidden
Next ws
End Sub

 

[Domenic]

Unlike your second macro, the first one only hides the tabs, not the actual sheets. With your second one, you can't hide all sheets within a workbook. A workbook must contain at least one visible worksheet.

 

[lezawang]

I see the difference now. Thank you very much.

 

[Domenic]

You're very welcome!

Cheers!