Macro to Convert an Excel worksheet into Very Hidden mode

Table of Contents

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?