How do I hide all worksheets that are NOT selected?

[jh1234]

I have many reports with workings on say 28 out of 30 tabs, and where the workings need to be hidden prior to distribution. It would be nice to be able to select the two tabs I want to keep and run a macro to hide the others. I'm looking for a generic macro that will work in any workbook, hiding all worksheets that are not selected.

I got as far as this but obviously it doesn't work...

for each ws in worksheets
if ws.selected = false then ws.visible = xlVeryHidden
next ws

Many thanks in advance for any responses!

 

[Weaver]

try this:

Sub hideAllWorksheetsButSelected()
    Application.ScreenUpdating = False
    For Each ws In Worksheets
        If ws.Name <> ActiveSheet.Name Then
            ws.Visible = xlVeryHidden
        End If
    Next
    For Each sh In ActiveWindow.SelectedSheets
        sh.Visible = True
    Next
End Sub

 

[jh1234]

Cool. Thanks. Works perfectly. I was surprised to see that you can use '...<> ActiveSheet.Name' when you've selected multiple sheets.

 

[Weaver]

Cool. Thanks. Works perfectly. I was surprised to see that you can use '...<> ActiveSheet.Name' when you've selected multiple sheets.

Yeah, I figured it doesn't matter how many sheets are selected, only 1 can be active at a time.