Check if Module exists

[sharky12345]

I'm trying to find a method to identify if a specific module exists in a project.

I've tried this but it doesn't work - is there a simple solution?

If ActiveWorkbook.VBProject.VBComponents("Setup") <> "" Then

 

[Fluff]

How about

Sub sharky12345()
   Dim Mdl As Object
   On Error Resume Next
   Set Mdl = ActiveWorkbook.VBProject.VBComponents("mod1").CodeModule
   On Error GoTo 0
   If Mdl Is Nothing Then
      MsgBox False
   Else
      MsgBox True
   End If
End Sub

 

[sharky12345]

Perfect - cheers Fluff!

 

[Fluff]

You're welcome & thanks for the feedback