VBComponents.Remove löscht nicht alle Module

Sub ModuleListLösch()
Dim CodeObj As Object
Dim sFile As String
sFile = ThisWorkbook.Path & "\" & Kopie		'# wird von der aufrufenden Prozedur gesetzt
Workbooks.Open sFile
If Val(Application.Version) >= 8 Then
With ActiveWorkbook.VBProject
For Each CodeObj In .VBComponents
Select Case CodeObj.Type
Case 1                                                                         '# nur Module (=Typ 1)
MsgBox ("Typ = " & CodeObj.Type & Chr(13) & _
"Name = " & CodeObj.Name)                                  '# zeigt alle Module richtig an,
.VBComponents.Remove CodeObj	               '# aber löscht nicht alle, nur manche
End Select
Next
End With
End If
End Sub