Добрый вечер!    
 
Помогите написать макрос, позволяющий удалить с Лист1 все макросы.    
 
Нижеприведённый макрос выдаёт ошибку ...  
Private Sub DeleteModulesAndCode()  
For Each iVBComponent In ThisWorkbook.VBProject.VBComponents  
With iVBComponent  
Select Case .Type  
Case 1 To 3: .Collection.Remove iVBComponent  
Case 100: .CodeModule.DeleteLines _  
1, .CodeModule.CountOfLines  
End Select  
End With  
Next  
End Sub  
 
 
Спасибо