Оптимизация таблицы

[Иванов_ДМ]

Уважаемые форумчане, помогите пожалуйста!
Мне нужно создать макрос, оптимизирующий таблицу на листе Excel.

Проблема еще и в том, что при открытии файла таблица (столбцы с 2 по 25-й) должна быть скрыта. А далее макрос должен открыть то, что не равно 0

По сути его действия должны быть следующими:
1. Скрыть столбцы с 2-го по 25-й при открытии файла
2. Проверить по 5-й строке значения ячеек с 2-го столбца по 25-й
3. Открыть столбцы со значением больше "0".

Помогите, кто может!!!
Заранее спасибо!

[EducatedFool]

Private Sub Workbook_Open()
    Application.ScreenUpdating = False
    For i = 2 To 25
        Columns(i).Hidden = Not Cells(5, i) > 0
    Next i
End Sub

[Иванов_ДМ]

Сообщение от EducatedFool

Private Sub Workbook_Open()
    Application.ScreenUpdating = False
    For i = 2 To 25
        Columns(i).Hidden = Not Cells(5, i) > 0
    Next i
End Sub

To EducatedFool
Спасибо, что отозвались, но код почему-то не работает...
Правда может я что-то не так запускаю...
Я прикрепил файл с таблицей, посмотрите, плиз...

[EducatedFool]

Код надо вставлять не в модуль листа, а в модуль книги
(называется ЭтаКнига)

Как добраться до этого модумя - смотри здесь.

[Иванов_ДМ]

Сообщение от EducatedFool

Код надо вставлять не в модуль листа, а в модуль книги
(называется ЭтаКнига)

Как добраться до этого модумя - смотри здесь.

Здорово!!! Спасибо!!!
А как сделать так, чтобы скрывались столбцы при открытии файла, а открывались нужные при нажатии элемента управления (кнопки)?
Просто для обновления необходимо каждый раз закрывать-открывать файл...

[EducatedFool]

Уберите в первой строке макроса ключевое слово Private,
и назначьте этому макросу кнопку.

[Иванов_ДМ]

Сообщение от EducatedFool

Уберите в первой строке макроса ключевое слово Private,
и назначьте этому макросу кнопку.

Спасибо! Вот теперь просто блеск!