Macro for hiding all active sheets exept one

[chobanne]

Can someone please help me in this

I need macro in sheet 1 who will unhide sheet 2, hide sheet 1 and every other active sheet, so that only sheet 2 stay active and visible.

Thank you

 

[chobanne]

Maybe it works on your excell version but that macro dont do that for me. It just hide me active sheet with macro button inside it and unhide sheet A2. I m using excel 2016

So i will explain again in some example with 7 sheets, but the number of them can vary

Lets suppose that before starting macro i have something like this

Sheet 1 - active and unhide, with macro button
Sheet 2 - hide
Sheet 3 - unhide
Sheet 4 - unhide
Sheet 5 - hide
Sheet 6 - unhide
Sheet 7 - unhide

After starting macro i want to have something like this

Sheet1 - hide, with macro button
Sheet2 - unhide and active
Sheet3 - hide
Sheet4 - hide
Sheet5 - hide
Sheet6 - hide
Sheet7 - hide

In another words i want only sheet2 to be unhide and active after starting macro, all all other sheets, were they visible or invisible before starting Macro, must be hidden

 

[Fluff]

That is nothing like you asked for, you asked for every other active sheet but you are now saying only one sheet is active.
Try

Sub chobanne()
   Dim Ws As Worksheet
   
   Sheets("Sheet2").Visible = xlSheetVisible
   For Each Ws In Worksheets
      If Ws.Name <> "Sheet2" Then Ws.Visible = xlSheetHidden
   Next Ws
End Sub

 

[chobanne]

That is nothing like you asked for, you asked for every other active sheet but you are now saying only one sheet is active.
Try

Sub chobanne()
   Dim Ws As Worksheet
  
   Sheets("Sheet2").Visible = xlSheetVisible
   For Each Ws In Worksheets
      If Ws.Name <> "Sheet2" Then Ws.Visible = xlSheetHidden
   Next Ws
End Sub

thank you

 

[Fluff]

You're welcome & thanks for the feedback.