Two things. You have to do it backwards or consecutive rows of zero height
won't be deleted and the quotes aren't required:-

Sub row_delete()

For i = 1000 To 1 Step -1
If Rows(i).RowHeight = 0 Then Rows(i).Delete
Next i

End Sub

Mike


"lawson" wrote:

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