Problem with Hiding Every Other Column
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
"samdev" wrote in message
...
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!
|