Laufzeitfehler 1004 bei Entfernung aller VBA Codes

Sub CK(Dateiname)
Set WB = Workbooks(Dateiname)
For x = WB.VBProject.VBComponents.Count To 1 Step -1
n = WB.VBProject.VBComponents(x).Name
a = WB.VBProject.VBComponents(x).CodeModule.CountOfLines
If a > 0 Then
WB.VBProject.VBComponents(x).CodeModule.DeleteLines 1, a
End If
t = WB.VBProject.VBComponents(x).Type
If t < 4 Then WB.VBProject.VBComponents.Remove WB.VBProject.VBComponents(x)
Next x
End Sub