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
'This "Hides" any Row in Column(A) that =0, rows: 1 through 10.
'By J.S. Was, 6-12-2001.
For i = 1 To 10
With Intersect(Columns(1), ActiveSheet.UsedRange)
If .Rows(i).Value = 0 Then
Selection.EntireRow.Hidden = True