You can also convert this to an "Event" code so it will run automaticall when any re-calculation or new selection is made. The problem with this is if yoy change the code below to work with "Blanks" ("") rather than "0." Then you will hide all blank rows and your sheet will be difficult to manage, so the manual code below is better, just change the "0" to "". JSW
Sub MyHide()
'This "Hides" any Row in Column(A) that =0, rows: 1 through 10.
'By J.S. Was, 6-12-2001.
Dim i
For i = 1 To 10
With Intersect(Columns(1), ActiveSheet.UsedRange)
Rows(i).Select
If .Rows(i).Value = 0 Then
Selection.EntireRow.Hidden = True
End If
End With
Next
End Sub