Closing (Hiding) multiple visible tabs.

[jmk15315]

I know how to close (Hide) a tab or multiple tabs by using either the "sheet" name or the sheet identifier. What I am wondering is if there is a way to close all open (unhidden) tabs with the exception of a specific tab or tabs?

For example, I can close a tab by being in that tab and using "ALT,O,H,H" or inside my vba "Activesheet.Visible=Hidden" or "Sheet20.Visible=Hidden"

What I am hoping to do is provide a macro that closes all unhidden tabs with the exception of three (2) tabs. Essentially resetting the workbook back to a starting point.

Any direction would be helpful.

 

[bobsan42]

Sub hideMain()
    Dim sheetNamestoSkip() As Variant
    sheetNamestoSkip = Array("Sheet1", "Sheet2")
    hideemall sheetNamestoSkip
    Erase sheetNamestoSkip
End Sub

Sub hideemall(sheetNamestoSkip() As Variant)
    Dim toSkip As String
    toSkip = "," & Join(sheetNamestoSkip, ",") & ","
    Dim sh As Worksheet
    For Each sh In ThisWorkbook.Worksheets
        If sh.Visible Then
            If Not toSkip Like "*," & sh.Name & ",*" Then
                sh.Visible = xlSheetHidden
            End If
        End If
    Next sh
    Set sh = Nothing
End Sub