A starter for ten..... (Caution an empty cell is evaluated as 0) !

Sub test()
Dim c As Range
For Each c In Range("A10:A50")
If c.Value = 0 Then
Rows(c.Row & ":" & c.Row + 2).EntireRow.Hidden = True
End If
Next c
End Sub

--

Regards,
Nigel




"Doug Howell" wrote in message
...
I am trying to do the following and don't know where to start:

Look at every third cell in a column range. (A14:A50)
If that cell's value is 0 then that row plus the following 2 rows are
hidden.


Thanks for any help.