Send a worksheet to Very Hidden Mode
Sub VeryHiddenSheet()
Sheets("xlncad").Visible = xlVeryHidden
End Sub
Send selected worksheets to Very Hidden Mode
Sub SelectedSheetsVeryHidden()
Dim Ws As Worksheet
For Each Ws In ActiveWindow.SelectedSheets
Ws.Visible = xlSheetVeryHidden
Next Ws
End Sub
Unhide every Very Hidden sheet in a Workbook
Sub UnHideVeryHiddenSheets()
Dim Ws As Worksheet
For Each Ws In ActiveWorkbook.Worksheets
If Ws.Visible = xlSheetVeryHidden Then
Ws.Visible = xlSheetVisible
End If
Next Ws
End Sub
How to use codes shared here?