Thema: AddIn-Namen auslesen

StandardModule: Modul1

Sub Auslesen()
   Dim oVBP As Object
   On Error GoTo ERRORHANDLER
   For Each oVBP In Application.VBE.VBProjects
      If Right(oVBP.Filename, 3) = "xla" Then
         MsgBox oVBP.Filename
      End If
ERRORHANDLER:
   Next
   On Error GoTo 0
End Sub

Beiträge aus dem Excel-Forum zu den Themen Allgemein und AddIn