Help with Hiding Columns Macro

[Mobot99]

Hello, need help with a macro that hides columns in multiple worksheets based on whether the drop down menu in that column in one worksheet says "HIDE"

Here is what I have so far, my issue is how do I exclude certain worksheets? Including the worksheet that the macro is in? Or I can just include certain worksheets, whichever is easier.

Sub Hide_Columns_Containing_Value_All_Sheets()

Dim c As Range
Dim ws As Worksheet

For Each ws In ActiveWorkbook.Worksheets
If Not ws.Name = "Sheet9" Then
End If
For Each c In Range("D4:N4").Cells
If c.Value = "HIDE" Then
c.EntireColumn.Hidden = True
End If
Next c
Next ws
End Sub

 

[Fluff]

Which line gives that error?

 

[Mobot99]

Not showing a particular line, here is a screenshot:

 

[Fluff]

Ok, Sheet9 is the code name, not the sheet name. The sheet name is Renewal Column Selection.
Try this instead

Sub Hide_Columns_Containing_Value_All_Sheets()
   
   Dim c As Range
   Dim ws As Worksheet
   
   For Each ws In ActiveWorkbook.Worksheets
      Select Case ws.CodeName
         Case "Sheet9", "Sheet8", "Sheet3", "Sheet6" ' sheet names to be excluded
         Case Else
            For Each c In Sheet9.Range("D4:N4").Cells
               ws.Range(c.Address).EntireColumn.Hidden = c.Value = "HIDE"
            Next c
      End Select
   Next ws
End Sub

 

[Mobot99]

Ah user error on my part, I'm still learning! AMAZING, it's working now, thank you @Fluff

 

[Fluff]

You're welcome & thanks for the feedback.