VBA or Macro that would hide all worksheets with certain text

[cbarryb]

Hi All,

Would anyone know how to write the code for being able to hide all worksheets with the text USD and EUR in. I use a module to consolidate all worksheets from a specified folder into one workbook, I just would like to hide all of the Worksheets that have the text USD and EUR in so Im left with the GBP tabs. They all have a date at the beginning i.e. 01.01.2020 USD, so it will need the wildcard char in there. I will then convert all the data to tables and then use Power Query to drag all my data into one Sheet.

Would anyone know what I could do please.

 

[Fluff]

Do you mean that the sheet names contain USD EUR etc?

 

[cbarryb]

Yes, they would be called:

01.01.2020 USD
&
01.01.2020 EUR
etc

 

[Fluff]

In that case how about

Sub cbarryb()
   Dim Ws As Worksheet
   For Each Ws In Worksheets
      If Ws.Name Like "*USD" Or Ws.Name Like "*EUR" Then
         Ws.Visible = xlSheetHidden
      End If
   Next Ws
End Sub

 

[cbarryb]

In that case how about

Sub cbarryb()
   Dim Ws As Worksheet
   For Each Ws In Worksheets
      If Ws.Name Like "*USD" Or Ws.Name Like "*EUR" Then
         Ws.Visible = xlSheetHidden
      End If
   Next Ws
End Sub

Thats worked perfect thank you

 

[Fluff]

You're welcome & thanks for the feedback