On Oct 14, 2:03*am, "Gary Keramidas" <GKeramidasAtMsn.com wrote:
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!- Hide quoted text -

- 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,