Сделал по заказу столовой файлик меню-раскладка, имеем:
строки(период)/столбцы(продукты) манка/гречка/мясо/куры/и тд.. всего 65 наименований
завтрак
обед
ужин
-----
итого

Список продуктов на листе постоянен, но не все они используются в меню текущего дня.
Для уменьшения величины распечатываемой "простыни" написал макрос скрывающий столбцы в которых значение ячейки i32(итого продукта) = 0. На пальцах все получается, но вот корректно реализовать к сожалению не могу...

Sub ColumnHidden()
Dim i As Long, x As Long
Application.ScreenUpdating = False
[F1].Select
x = ActiveCell.Offset(255, 0).End(xlUp).Column
For i = x To 1 Step -1
If Cells(i, 32) <= 0 Then Cells(i, 32).EntireColumn.Hidden
Next i
Application.ScreenUpdating = True
End Sub

вылетает в дебагере в ошибку 1004:
метод Hidden из класа Range завершен неверно...

подскажите, пожалуйста, где моя ошибка ;)

спасибо ;)
переделал с помощью товарищей в такую штуку

Sub ColumnHidden()
Dim i As Byte
Application.ScreenUpdating = False
For i = 5 To Cells(5, 128).End(xlToLeft).Column
If Cells(32, i).Value <= 0 Then Columns(i).Hidden = True
Next i
Application.ScreenUpdating = True
End Sub