Почему не работает макрос

[Dog_DinGo]

Sub HZavtraki()
Dim i As Integer
For i = 6 To 100
If Cells(i, 6) = 0 And Cells(i, 10) = 0 Then Rows(i).Delete
Next i
End Sub

[IgorGO]

потому что если, например, в 6 строке ячейки 6 и 10 ячейки равны нулю, удаляется 6-я строка, все строки после 6-й получают новые номера, а Ваш цикл будет проверять следующим 7-й ряд (а изначально 7-й уже стал 6-м)
Excel выполняет то, что Вы написали, а не то, о чем Вы думаете.
пробуйте так:
For i = 100 To 6 step -1

[Dog_DinGo]

Ок... та же проблема существует, когда я не удаляю, а скрываю строки...

и когда я ставлю Шаг -1, макрос вообще ноль эмоций... нет ошибки и не выполняет то, что от него требуется

[Dog_DinGo]

Вру, он рукается на метод Range у меня в обоих случаях

[kuklp]

Дык, мож пример выложить? Чтоб не гадать, что у Вас не так?

[Dog_DinGo]

в модуле Tests
HZavtraki

[kuklp]

Дык, защиту листа снять "123" и заработает.

[kuklp]

Sub HZavtraki()
    Dim i As Integer
    Sheets("ЗАВТРАКИ").Unprotect ("123")
    Rows("6:100").Hidden = False
    For i = 100 To 6 Step -1
        If Cells(i, 6) = "" And Cells(i, 10) = "" Then Rows(i).Hidden = True    'Delete
    Next i
    Sheets("ЗАВТРАКИ").Protect ("123")
End Sub

[Dog_DinGo]

Спасибо большое...
что-то я затупил на счёт защиты....