ماكرو يبحث عن موديول

[عاطف عبد العليم محمد]

السلام عليكم ورحمة الله وبركاته

هل يمكن عمل ماكرو يبحث عن  الموديول  MyNewModule فإن كان موجود حذف الموديول  وان كان غير موجود نفذ الماكرو فأضاف الموديول 

لدي هذا الماكرو الذي يضيف موديول  MyNewModule

شكرا لكم 

Public Sub AddNewModule()

  Dim proj As VBIDE.VBProject
  Dim comp As VBIDE.VBComponent

  Set proj = ActiveWorkbook.VBProject
  Set comp = proj.VBComponents.Add(vbext_ct_StdModule)
  comp.Name = "MyNewModule"

  Set codeMod = comp.CodeModule

  With codeMod
    lineNum = .CountOfLines + 1
    .InsertLines lineNum, "Public Sub ANewSub()"
    lineNum = lineNum + 1
    .InsertLines lineNum, "  MsgBox " & """" & "I added a module!" & """"
    lineNum = lineNum + 1
    .InsertLines lineNum, "End Sub"
  End With

End Sub