Hi all,

How can I adjust below code to have the sheets "DTC", "CK", and "KA" hidden (not very hidden) and every other sheet visible BUT the sheet "Warning". The sheet "Warning" should be very hidden.

Private Sub ShowAllSheets()

    'Declare the variable
    Dim Sh As Object
    
    'Display every sheet, except the warning sheet
    For Each Sh In Sheets
        If Sh.Name <> Warning Then
            Sh.Visible = xlSheetVisible
        End If
    Next Sh
    
    'Hide the warning sheet
    Sheets(Warning).Visible = xlSheetVeryHidden
    
End Sub