Здравствуйте, в документе много обьектов, неких картинок, нужно их всех удалить,  
Sub 1()  
k = 0  
u = 300  
   For i = 1 To u 'Step 1  
       On Error GoTo Error_del  
 ActiveSheet.Shapes("Picture " & i).Delete  
Error_del:     k = k + 1  
   Next  
   MsgBox k  
   MsgBox u - k  
End Sub  
проблема в том что вылазиит ошибка что объекта с таким именем не существует, как избавиться от этой ошибки?