It's probably a little faster to do just one delete:

Sub DelZeroHeightRowsAfterAutoFilter()
Dim Cell As Range
Dim DelRows As Range
For Each Cell In Range("_FilterDatabase").Columns(1).Cells
If Cell.RowHeight = 0 Then
If DelRows Is Nothing Then
Set DelRows = Cell
Else
Set DelRows = Union(DelRows, Cell)
End If
End If
Next
If Not DelRows Is Nothing Then DelRows.EntireRow.Delete
End Sub


--
Jim
"lawson" wrote in message
...
| simple request:
|
| after using the auto filter tool, the rows that got sorted out have a
height
| = 0. I just want a program to delete rows in which the height is 0. or is
| there sia way to set up the auto filter to do this, even better.
|
| Sub row_delete()
|
| For i = 1 To 1000
|
| If Rows(i).RowHeight = 0 Then Rows("i").Delete Shift:=xlUp
|
| Next i
|
| End Sub
|
|