If there happened to be 2 blank spaces in a row, would it not skip the 2nd one?
The counting backwards seems to be the way to go.
"Mark Rosenkrantz" wrote in message ...
Cimento;

For i = 1 To 5850
Cells(i, 1).Select
If IsEmpty(ActiveCell.Value) Then ActiveCell.EntireRow.Delete
Next i

Mark.

Succes;

More Excel ? www.rosenkrantz.nl or
---------------------------------------------------------------------


"cimento cola" wrote in message
...
Hey there.
I have this piece of code:

Private Sub CommandButton1_Click()
Dim i As Double
i = 1

For i = 1 To 5850
Cells(i, 1).Select
If ActiveCell.Value = Empty Then ActiveCell.EntireRow.Delete
i = i + 1
Next

End Sub

I want this:
In range A1:A5850 if cells in the first column (A) are empty then delete
entire row.
Exmple:
A
1 5
2
3 3
4 1

It should only delete the 2 entire row.
Can anyone help?
With that piece of code i get an I/O error and no rows deleted...
Thanks,