Try going up instead of down. James

Sub RowsOut()
Dim k As Long
For k = 1000 To 1 Step -1
If Rows(k).EntireRow.RowHeight = 0 Then Rows(k).EntireRow.Delete
Next k
End Sub

"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