Обработчик ошибок. что делаю не так? - VB

Формулировка задачи:

первых двух объектов не существует третий есть, четвертого нету все остальные есть
если начинаю цикл с нуля не работает, если с 2 все ок
что не так?

Решение задачи: «Обработчик ошибок. что делаю не так?»

textual
                            Листинг программы 
                        
                            <font color="blue">Sub</font> myDel()

Reg = Array(<font color="teal">"Смоленская"</font>, <font color="teal">"Тверская"</font>, <font color="teal">"Вологодская"</font>, <font color="teal">"Калужская"</font>, <font color="teal">"Московская"</font>, _
                <font color="teal">"Ярославская"</font>, <font color="teal">"Владимирская"</font>, <font color="teal">"Ивановская"</font>, <font color="teal">"Костромская"</font>)

<font color="blue">On</font> <font color="blue">Error</font> <font color="blue">Resume</font> <font color="blue">Next</font>

<font color="blue">For</font> i = <font color="darkblue"><b>0</b></font> <font color="blue">To</font> <font color="darkblue"><b>8</b></font>
    ActiveSheet.Shapes(<font color="teal">"Kg"</font> & Reg(i)).<font color="blue">Select</font>
    Selection.Delete
<font color="blue">Next</font> i

<font color="blue">End</font> <font color="blue">Sub</font>