Try:
For i = Rng to 1 step -1
--
Gary''s Student


"british.assassi" wrote:


Hi

I currently use the following code to delete the entire row if it empty
in a selection.


Code:
--------------------
Sub del_empty_row()
Rng = Selection.Rows.Count
ActiveCell.Offset(0, 0).Select
Application.ScreenUpdating = False
For i = 1 To Rng
If ActiveCell.Value = 0 Then
Selection.EntireRow.Delete
Else
ActiveCell.Offset(1, 0).Select
End If
Next i
Application.ScreenUpdating = True
End Sub
--------------------


This code works fine, but really I would rather hide the row.

Whenever I change *Selection.EntireRow.Delete* to
*Selection.EntireRow.Hidden = True* it stops after the first row if
finds is empty.

I would be very grateful if somebody could help me with this.

TIA

british.assassin


--
british.assassi
------------------------------------------------------------------------
british.assassi's Profile: http://www.excelforum.com/member.php...o&userid=28884
View this thread: http://www.excelforum.com/showthread...hreadid=503833