Сокрытие строк на основе информации в двух разных столбцах

Question

Мне нужно иметь возможность скрыть строку, если числа в столбце "c" и в столбце "d" равны нулю. Приведенный ниже код работает, но останавливается после циклического прохождения только 4 строк данных. Между данными нет ничего особенного, поэтому я не знаю, почему они остановились. Может кто-нибудь, пожалуйста, помогите мне? Спасибо.

Sub Hide_Row_3()

' Hide_Row_3 Macro

Worksheets("Costs").Activate
Application.ScreenUpdating = False

Dim rCell As Range

For Each rCell In Range("c7:c18, d7:d18")
    If rCell = 0 And rCell(xright) = 0 Then
        rCell.EntireRow.Hidden = True
    Else
        rCell.EntireRow.Hidden = False
End If

Next rCell

Application.ScreenUpdating = True

End Sub

Answer 1

For Each rCell In Range("c7:c18")

достаточно.

Edit>

У меня работает следующий цикл "

For Each rCell In Range("c7:c18")
    If rCell = 0 And rCell.Offset(0, 1) = 0 Then
        rCell.EntireRow.Hidden = True
    Else
       rCell.EntireRow.Hidden = False
End If

НТН!