Remove Module through VBA

[GAKEN]

Is there any way to remove a module in a workbook using VBA?

 

[Maurizio]

This remove all:

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
        MsgBox VBComps
         VBComps.Remove VBComp
      Case Else
         With VBComp.CodeModule
            .DeleteLines 1, .CountOfLines
         End With
   End Select
Next VBComp

End Sub

 

[GAKEN]

Thank you for the quick reply!!!!

Ken

 

[GAKEN]

I get the following error on: VBComp As VBIDE.VBComponent

User Defined Type not Defined.

How do I define it?

 

[Maurizio]

Hi Gaken,

PLEASE NOTE : You must choose Tools, References and select the Microsoft Visual Basic for Applications Extensibility library.