Kontrol om module eksisterer

Hej!

Her er lidt kode, som du kan bruge til at teste på, om et aktivt dokument indeholder et bestemt vba-modul (for det er vel det, du mener):

Sub test()
'denne procedure kalder funktionen VBComponentExists med navnet på det modul, jeg vil undersøge om findes
    MsgBox VBComponentExists("modWordspecialisten")
End Sub

Public Function VBComponentExists(VBCompName As String, Optional VBProj As VBIDE.VBProject = Nothing) As Boolean
      ' This returns True or False indicating whether a VBComponent named VBCompName exists in the VBProject referenced by VBProj. If VBProj is omitted, the VBProject of the ActiveWorkbook is used.

        Dim VBP As VBIDE.VBProject
        If VBProj Is Nothing Then
            Set VBP = ActiveDocument.VBProject
        Else
            Set VBP = VBProj
        End If
        On Error Resume Next
        VBComponentExists = CBool(Len(VBP.VBComponents(VBCompName).Name))
   
End Function


Jeg kan ikke selv tage æren for løsningen, som jeg engang fandt på følgende side, hvor der står meget godt om at kode til VBA-moduler/komponenter:

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

Undskyld, det sene svar, men sådan går det, når alt skal gå lidt hurtigere, det fungerer fint - tusind tak.