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?

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)



"Stephen" <(E-Mail Removed)> wrote in message
news:773E886F-4470-4F37-A6A6-(E-Mail Removed)...
> 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?
>

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.

"Stephen" wrote:

> 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?
>