Здравствуйте  
 
Подскажите пжлст. как удалить все элементы управления и формы со всех листов.  
Нашел такой код:  
Sub Del()  
On Error Resume Next  
ActiveSheet.OLEObjects(1).Delete  
End Sub  
Но как доработать не в курсе...