Delete a specific module by vba whithout the use of for each

[drom]

Hi and Thanks in advance!!

if I use the following macro I can delete all the module etc from a specific Workbook.


'

Sub Delete_AllVBA()
  On Error Resume Next
Dim WkbName As String: WkbName = "c\:gvjvcjhgsdf\vfdmnbvv\Hello.xls" 'ThisWorkbook.Name
Dim VBComp As VBIDE.VBComponent
Dim VBComps As VBIDE.VBComponents:  Set VBComps = Workbooks(WkbName).VBProject.VBComponents
  For Each VBComp In VBComps
    Select Case VBComp.Type
      Case vbext_ct_StdModule:        VBComps.Remove VBComp    '1:  "Standard Module"
      Case vbext_ct_ClassModule:      VBComps.Remove VBComp    '2:  "Class Module"
      Case vbext_ct_MSForm:           VBComps.Remove VBComp    '3:  "MS Form"
      Case vbext_ct_ActiveXDesigner:  VBComps.Remove VBComp    '11: "ActiveX Designer"
      Case vbext_ct_Document:         'VBComps.Remove VBComp   '100:"Document"
        With VBComp.CodeModule
          If .CountOfLines > 0 Then
            .DeleteLines 1, .CountOfLines
          End If
        End With
    End Select
  Next VBComp
  Beep
End Sub

'

but is there a way of deleting a specific module whithout the use of For Each VBComp In VBComps


I mean some thing like:

Activeworkbook.VBComponents("Module 1").remove

if "module 1" is the module I want to delete

Thanks!

PS: I know the following web

 http://www.cpearson.com/excel/vbe.aspx

 

[Datsmart]

Sub TestMR()
On Error Resume Next
With ActiveWorkbook.VBProject
    For x = .VBComponents.Count To 1 Step -1
        If .VBComponents(x).Name = "Module1" Then
            .VBComponents.Remove .VBComponents(x)
        End If
    Next x
End With
End Sub

 

[GTO]

This presumes you're deleting a module from the wb this code if housed in (ThisWorkbook).

Sub KillMod()
    ThisWorkbook.VBProject.VBComponents.Remove _
        ThisWorkbook.VBProject.VBComponents("Module2")
End Sub

Mark