Hiding an empty row?

[british.assassi]

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

 

[Guest]

Try:
For i = Rng to 1 step -1

 

[Tom Ogilvy]

Sub Hide_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.Hidden = True
End If
ActiveCell.Offset(1, 0).Select
Next i
Application.ScreenUpdating = True
End Sub

 

[british.assassi]

Thanks so much Tom