Hallo an alle,
ich habe mir vor längerer Zeit folgenden code in diesem Formum bekommen.
Er soll dazu führen das von der Arbeitsmappe mit MAkros eine ARbeitsmappe ohne
Makros gespeichert werden.
Es funtzt aber nicht mehr!
strFolder = strFolder & strFilename
ThisWorkbook.SaveCopyAs strFolder
Workbooks.Open strFolder
With Workbooks(strFilename).VBProject
For Each objVBC In .VBComponents
Select Case objVBC.Type
Case 1, 2, 3
.VBComponents.Remove .VBComponents(objVBC.Name)
Case 100
With objVBC.CodeModule
.DeleteLines 1, .CountOfLines
End With
End Select
Next
End With
Excel steigt immer in der Zeile
With Workbooks(strFilename).VBProject
mit dem Fehler 1004 aus!
Hat einer eine Idee wo dran das liegen kann?
Gruß
Swen