Test for value and set row height

[Jay Oken]

I would like to test for a value in a cell (i.e. cell C3 >0) and if true
then set the row height to 0 then move the curser down one cell and run the
test again. I also need the code to run it in a loop a certain number of
times. Any help would be appreciated.

Thanks,
J

 

[Jason Morin]

In a regular module:

Sub test()
Dim cell As Range
Dim rng As Range
Set rng = Range("C3:C20")
For Each cell In rng
With cell
If .Value > 0 Then
.RowHeight = 0
End If
End With
Next
End Sub