Формулы в столбце М ссылаются в какие-то дебри. Используйте для именования диапазонов такой набор символов, чтобы он не совпадал с адресным пространством Excel(A1,A2...). Если уж очень нужны имена вида A1, то используйте русскую букву "А".

ikki, спасибо, проблема решена+)так и знал, что истина где то рядом.

{quote}{login=iFess}{date=27.02.2012 02:12}{thema=Помогите с составлением макроса на скрытие/раскрытие строк/столбцов}{post}тут есть одно НО, если значение проверяемой ячейки будет ошибкой или битой ссылкой,то макрос остановится. Как обойти-незнаю+(  
{/post}{/quote}  
On Error Resume Next  
если добавить перед циклом-должно взлететь с игнорированием ошибок типа данных.

Я не трукодер, но кое-что набросаю:  
1. Cтолбцы c E по I:  
Range("e1:i1").Columns.Hidden = 1  
обращаемся к диапазону e1:i1, выбираем столбцы и изменяем параметр hidden.  
2. Пустые строки  
пока ничего не приходит в голову+(  
3. Строки где в столбце J нулевое значение    
Sub hide()  
Dim x As Integer  
Application.ScreenUpdating = 0 'вырубаем обновление экрана, чтоб не дергалась таблица  
For x = 5 To 64 'исключаем шапку и 64 - это последняя строка таблицы  
If Cells(x, 10) = 0 Then Cells(x, 10).Rows.Hidden = 1 Else Cells(x, 10).Rows.Hidden = 0 'условие собссно.  
Next  
Application.ScreenUpdating = 1 'обновление экрана включаем.  
End Sub  
тут есть одно НО, если значение проверяемой ячейки будет ошибкой или битой ссылкой,то макрос остановится. Как обойти-незнаю+(  
4. Строки с 80 по 100  
Range("a80:a100").rows.Hidden = 1  
аналогично столбцам