---  
' Удаление скрытых строк во всем листе  
Sub KillHiddenRows()  
For Each x In ActiveSheet.Rows  
If x.Hidden Then x.Delete  
Next  
End Sub  
 
---  
' Удаление используемых скрытых строк или строк с нулевой высотой  
Sub KillUsedHiddenThinRows()  
Dim x  
For Each x In ActiveSheet.UsedRange.Rows  
If x.Hidden Or x.Height = 0 Then x.EntireRow.Delete  
Next  
End Sub  
---  
ZVI

Если бы выложили пример XLS, в котором скрытые строки не удаляются, то нам было бы легче Вам помочь...  
 
Совет: тут на форуме к ответу можно прикрепить файл...

Спасибо всем за содействие! Первый раз на форуме, буду чаще заходить :) В общем-то у меня была задача, где ненужные строки было необходимо удалить, циклом For...Next не получилось, т.к. удалялись не все строки, задача была срочная, поэтому я их просто спрятала, а теперь я доработала этот код, чтобы ненужное удалялось, и необходимость удаления спрятанных строк отпала :)

Попробуйте обычный перебор строк, но только СНИЗУ ВВЕРХ!

я уже где-то спрашивал( и высказывал свое мнение)..  
 
строки с нулевой высотой автоматически становятся скрытыми.. нет?  
 
и уже приводил наиболее быстрый(imho) алгоритм удаления - через specialcells с areas

не знаю не знаю  
 
простейший макрос:  
Sub t()  
Rows(1).RowHeight = 1 '0  
End Sub  
 
и просмотр свойств rows(1)  
 
показывает синхронность этих изменений..

и не автофильтром :)

Попробую, конечно, но...

можно через инспектор документов (в офисе 2007 он есть, в старших - не знаю).  
удаляет скрытые столбцы и строки.  
правда, он у меня накосячил со столбцами разной ширины.