Почему мои ряды прячутся только иногда или спускаются вниз?

Question

Я хочу скрыть строки, если флажок не установлен.Я также хочу эту опцию, если вы случайно забыли проверить правильные строки, то есть вы оставили строку, которая должна быть проверена, не отмечена, я хочу, чтобы опция не отображалась.

Сначала в окне сообщений отображаются исправленные строки.из 13, 14, 15 из 3-х флажков у меня в Excel, но потом, когда я делаю кнопку сброса, а затем я хочу скрыть их снова, я получаю 16, 16, 16 в виде строк

Почему могэто будет?

С кодом, который у меня есть, первый раз, когда я нажимаю первую кнопку, а затем вторую кнопку, она работает именно так, как я хочу.Когда я иду, чтобы скрыть те же строки и флажки снова, это не работает.

'' '' Сброс параметров настройки, если пользователь совершает ошибку, просматривает и выводит из списка ошибки и делает все строки и флажки скрытыми

', удаляя строки, если выбран параметр

'find the row the checkbox is associated with
For Each cb In ActiveSheet.OLEObjects
    If TypeName(cb.Object) = "CheckBox" Then
      If cb.Object.Value = False Then
        theRow = cb.TopLeftCell.row
        MsgBox cb.TopLeftCell.row
        cb.Visible = False
        Rows(theRow).Hidden = True
        End If
    End If
Next cb

End Sub