Hi
I am trying to hide some columns in the range AC:BB in the sheet Weekly Report Data which has the value "H" is in some cells in the range AC2:BB2. The macro keeps running until I get the 'out of stack space' message so I assume my code is telling it to do something else. Can someone point out where my code is failing?
[Private Sub Worksheet_Activate()
Dim c As Range
Application.ScreenUpdating = False
Sheets("Weekly Report Data").Select
For Each c In Range("AC2:BB2")
c.EntireColumn.Hidden = (c.Value = "H")
Next c
Sheets("Weekly Report").Select
Range("c21").Select
Application.ScreenUpdating = True
End Sub[/HTML]
Bookmarks