Problem with Hiding Every Other Column

[samdev]

I have two workbooks/files - both workbooks have the macro below that
hides every column starting with Column B.

Sub hidecol()

Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
For i = 2 To 255 Step 2
If Columns(i).Hidden = False Then
Columns(i).Hidden = True
Else
Columns(i).Hidden = False
End If
Next i
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub


In workbook 1 it works just fine but in Workbook 2, it stops at the
following line: Columns(i).Hidden = True

The only difference (that I can detect) between the 2 workbooks is in
Workbook 2 there are more columns that contain data than in workbook
1.

Any ideas??

Thx!

 

[Gary Keramidas]

i'd use something like this, unless i don't understand what you're tying to
accomplish:

Sub hidecol()
Dim ws As Worksheet
Dim i As Long
Set ws = Worksheets("Sheet1")
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
ws.Columns("A:IV").Hidden = False
For i = 2 To 255 Step 2
ws.Columns(i).Hidden = True
Next i
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub

 

[paul.robinson]

Hi
Comments and other objects on the screen can stop columns hiding. If
you have such, right click them, go to format and in properties choose
"move and size with cells".
regards
Paul

 

[samdev]

i'd use something like this, unless i don't understand what you're tying to
accomplish:

Sub hidecol()
      Dim ws As Worksheet
      Dim i As Long
      Set ws = Worksheets("Sheet1")
      Application.Calculation = xlCalculationManual
      Application.ScreenUpdating = False
      ws.Columns("A:IV").Hidden = False
      For i = 2 To 255 Step 2
            ws.Columns(i).Hidden = True
      Next i
      Application.ScreenUpdating = True
      Application.Calculation = xlCalculationAutomatic
End Sub

--

Gary












- Show quoted text -

I tried this and it still stops at the ws.Columns(i).Hidden = True -
the error msg is "unable to set the Hidden Property of the range
class".

I checked and the "move and size with cells" options are turned on for
the objects (they are buttons).

What is puzzling is why it works in one file but not the other - the
file that it is not working just has more columns with data, other
than that they are the same.....

Any other ideas.....thx,