removed vba code
 

Hi!
I have a macro that removes the VBA code from the workbook and saves it.
When I reopen the workbook the macro warning popps up. But in the
workbook is no line of code and no module.
Then I simply save the workbook and now I can open it without macro
warning. Can anyone explain that to me?

For vba code deleting I used the macro of www.cpearson.com. See the vba
code below:

Public Sub test()
ThisWorkbook.SaveAs ("Test1")
DeleteAllVBA
ThisWorkbook.Save
End Sub
Sub DeleteAllVBA()

Dim VBComp As VBIDE.VBComponent
Dim VBComps As VBIDE.VBComponents

Set VBComps = ActiveWorkbook.VBProject.VBComponents

For Each VBComp In VBComps
Select Case VBComp.Type
Case vbext_ct_StdModule, vbext_ct_MSForm, _
vbext_ct_ClassModule
VBComps.Remove VBComp
Case Else
With VBComp.CodeModule
..DeleteLines 1, .CountOfLines
End With
End Select
Next VBComp

End Sub

Thanks for your help
Michi






*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!