Hi!
I have removed the VBA code from the workbook "Test.xls", saved and
closed. When I reopened the workbook the message "Workbook countains
macros" popped up.
I saved the workbook and reopened it again and to my surprise no macro
warning occurred. 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

You must also "remove" the macro module goto vbe by alt f11right click on
the moduleremoveNO

--
Don Guillett
SalesAid Software

"Michi" wrote in message
om...
Hi!
I have removed the VBA code from the workbook "Test.xls", saved and
closed. When I reopened the workbook the message "Workbook countains
macros" popped up.
I saved the workbook and reopened it again and to my surprise no macro
warning occurred. 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

I guess you have not tried out the code I provided, because the modules
are also removed automatically.

Michi

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

Please Help!!!

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