VBA: Hide Columns in multiple sheets using loop

[unknownymous]

Hi All,

I'm currently looking for ways on how I can hide columns in multiple tabs sheets.

Hide Columns: A, C-E, H, K-P,V-Z
Sheets to loop: Sheet1, Sheet1 (2), Sheet1 (3), Sheet1 (4), Sheet1 (5) and so on (example Sheet1 (6)
Note: If sheet's doesn't exist, just skip.


Any help would be greatly appreciated!


Thank you!!!

 

[Fluff]

Do you want it to work on all sheets that start Sheet1?

 

[unknownymous]

Do you want it to work on all sheets that start Sheet1?

Yes, please.

Hi All,

I'm currently looking for ways on how I can hide columns in multiple tabs sheets.

Hide Columns: A, C-E, H, K-P,V-Z
Sheets to loop: Sheet1, Sheet1 (2), Sheet1 (3), Sheet1 (4), Sheet1 (5) and so on (example Sheet1 (6)
Note: If sheet's doesn't exist, just skip.


Any help would be greatly appreciated!


Thank you!!!

 

[Fluff]

Ok, how about

Sub unknownymous()
   Dim ws As Worksheet
   
   For Each ws In Worksheets
      If ws.Name Like "Sheet1*" Then
         ws.Range("A:A,C:E,H:H,K:P,V:Z").EntireColumn.Hidden = True
      End If
   Next ws
End Sub

 

[unknownymous]

Works perfectly! Thank you

Ok, how about

Sub unknownymous()
   Dim ws As Worksheet
  
   For Each ws In Worksheets
      If ws.Name Like "Sheet1*" Then
         ws.Range("A:A,C:E,H:H,K:P,V:Z").EntireColumn.Hidden = True
      End If
   Next ws
End Sub

orks perfectly

 

[Fluff]

You're welcome & thanks for the feedback.