You can try to Export the Components and then Import it to another workbook
Here is the hint
Code:
Sub VBE_Pjt()
Dim VBPjt As VBProject
Dim oWB As Workbook
Dim oVBC As VBComponent
Set oWB = Workbooks("MyExample.XLS")
Set VBPjt = oWB.VBProject
For Each oVBC In VBPjt.VBComponents
oVBC.Export "c:\mytemp\" & oVBC.Name
Next oVBC
'' Loop for all the files
VBPjt.VBComponents.Import "c:\mytemp\mlinkfix"
End Sub
You need to add reference to Visual Basic Extensibility for executing the above code.
Also try VBPjt.SaveAs if it works for you
Cheers
Shasur
http://www.dotnetdud.blogspot.com
VBA Tips & Tricks (
http://www.vbadud.blogspot.com)