MACRO to hide all but one tab in excel

[saraapple]

Hi,

I have several tabs in my worksheet that may be visible (depending on other macros) - I need to hide all but one "Paste HERE" - how do you do this?
The tabs I need to hide are changing so is there a code I can use to hide everything apart from the one sheet I want (Paste HERE).

Thanks
Sara

 

[Fluff]

How about

Sub saraapple()
   Dim Ws As Worksheet
   
   Sheets("Paste Here").Visible = xlSheetVisible
   For Each Ws In Worksheets
      If Not Ws.Name = "Paste here" Then Ws.Visible = xlSheetHidden
   Next Ws
End Sub

 

[saraapple]

Thank you for the help but I cant get it to work? Also the wrong tab is left open and my PASTE here is hidden?

 

[Fluff]

What is the name of the sheet that should remain visible.

 

[saraapple]

"PASTE here" is the tab - the sheet is called "Paragon_Orders_Checking Tool" - should I reference the sheet in the macro? Sorry probably a stupid question!

 

[Fluff]

You will need to Change both occurrences of "Paste here" in the code with the sheet name.

 

[saraapple]

Ok think this is me asking for the wrong thing!
The worksheet is called "Paragon_Orders_Checking Tool"
There are a total of 15 tabs on the sheet - I want a macro to hide all the tabs apart from the one called "Paste Here"

 

[Fluff]

The worksheet is called "Paragon_Orders_Checking Tool"

Do you mean workbook, or worksheet?
how about

Sub saraapple()
   Dim Ws As Worksheet
   
   Sheets("Paste Here").Visible = xlSheetVisible
   For Each Ws In Worksheets
      If Not LCase(Ws.Name) = "paste here" Then Ws.Visible = xlSheetHidden
   Next Ws
End Sub

 

[saraapple]

That works THANK YOU!
Sorry long day....the workbook is Paragon_Orders_Checking Tool - I don't have a name for the worksheet.
Great advice as always thanks

 

[Fluff]

You're welcome & thanks for the feedback.