[COLOR="DarkSlateGray"][B]Private Sub CommandButton1_Click()
Dim i
Application.ScreenUpdating = False
For i = 16 To 600
If Not IsEmpty(Cells(i, 6)) And Cells(i, 6) = 0 Then
Rows(i).EntireRow.Hidden = True
End If
Next i
Application.ScreenUpdating = True
End Sub[/B][/COLOR]