Correct me if I'm wrong but...

[Stephen]

Shouldn't...

For i = 31 To 1000
If .Cells(i, 21).Value = "0" And .Cells(i, 22).Value = "0" Then
..Cells(i, 1).EntireRow.Hidden = True
End If
Next i

hide each row where the values for columns "U" ANd "V" equal zero?

 

[Bob Phillips]

For i = 31 To 1000
If .Cells(i, 21).Value = 0 And .Cells(i, 22).Value = 0 Then
.Rows(i, 1).Hidden = True
End If
Next i


--
---
HTH

Bob


(there's no email, no snail mail, but somewhere should be gmail in my addy)

 

[JLGWhiz]

If .Cells(i, 21).Value = "0" And .Cells(i, 22).Value = "0" Then

Unless you have columns U and V formatted as text, you would need to
remove the quote marks from the zeros. It worked OK for me once I did that.