Automaticaly Hiding Columns

[Cjbnash]

Hi there,

I am using the below bit of code to hide columns based on a value. However it wont work and cant figure it out.

any ideas
Thanks
Chris

Sub Show_Team_1()

Application.ScreenUpdating = False
Sheets("Master Schedule").Visible = True
Sheets("Master Schedule").Select

Dim c As Range

Range("h9:bh9").EntireColumn.Hidden = False

For Each c In Range("h9:bh9")
If c = "1" Then
Else
Columns(c.Columns).EntireColumn.Hidden = True
End If
Next c
Application.ScreenUpdating = True

End Sub

 

[Glaswegian]

Welcome to the Board Chris.

You've already defined c as a Range and are looping through each cell in the range, so you can simply use

c.EntireColumn.Hidden = True

so your code would become

Sub Show_Team_1()

Application.ScreenUpdating = False
Sheets("Master Schedule").Visible = True
Sheets("Master Schedule").Select

Dim c As Range

Range("h9:bh9").EntireColumn.Hidden = False

For Each c In Range("h9:bh9")
    If c = "1" Then
        c.EntireColumn.Hidden = True
    End If
Next c
Application.ScreenUpdating = True

End Sub

HTH

Regards

 

[Norie]

Chris

What exactly do you mean it won't work?

Is it causing errors or not doing what you expect?

How are you running the code? Which sheet is active when you run it?

Sub Show_Team_1() 
Dim rng As Range
Dim c As Range 

     Application.ScreenUpdating = False

     Set rng = Sheets("Master Schedule").Range("h9:bh9")
     
     rng.EntireColumn.Hidden = False

     For Each c In rng
          c.EntireColumn.Hidden = c="1"
     Next c 

     Application.ScreenUpdating = True 

End Sub