Addins

'' ***************************************************************************
'' Purpose  : List all addins
'' Written  : 21-Oct-2003 by Andy Wiggins - Byg Software Ltd
''

Sub ListAllAddins()
    Dim x, y, z
    y = 1
    For Each x In AddIns
        With x
            ActiveSheet.Cells(y, 1) = .Name
            ActiveSheet.Cells(y, 2) = .Installed
            ActiveSheet.Cells(y, 3) = .FullName
        End With
        y = y + 1
    Next
    
    Cells.EntireColumn.AutoFit
    
End Sub