And to save some typing,

'*****
Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
Dim rwindex
With Worksheets("Items")
For rwindex = 1 To 26
If .Cells(rwindex, 1).Value = "0" Then
.Rows(rwindex).Hidden = True
Else
.Rows(rwindex).Hidden = False
End If
Next rwindex
End With
End Sub
'*****

Regards,
Anders Silven

"lseyer " skrev i meddelandet
...
Thanks for your help!

Here is the code that worked for me...

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)

For rwindex = 1 To 26
If Worksheets("Items").Cells(rwindex, 1).Value = "0" Then
Worksheets("Items").Rows(rwindex).Hidden = True
Else
Worksheets("Items").Rows(rwindex).Hidden = False
End If
Next rwindex

End Sub


---
Message posted from http://www.ExcelForum.com/