Hi,
hide/show rows depending on value in column D:

Sub hide_rows()
For i = 5 To 206 'rows
If Range("D" & i).Value = 0 Then
Rows(i).EntireRow.Hidden = True
Else
Rows(i).EntireRow.Hidden = False
End If
Next i
End Sub

or shorter version

Sub hide_rows2()
For i = 5 To 206
Rows(i).EntireRow.Hidden = Range("D" & i).Value = 0
Next i
End Sub

Jare

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