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