Well if the first one doesn't have a description defined it wouldn't print and then none of the rest would because you are exiting the For ... Each loop.

The idea is to try to find a unique identifier for the Add-in you want to disconnect.

Try:

Sub printdescriptions()
Dim lngIndex As Long
Dim oCAIs As COMAddIns
Set oCAIs = Application.COMAddIns
For lngIndex = 1 To oCAIs.Count
Debug.Print Application.COMAddIns(lngIndex).Description
Debug.Print Application.COMAddIns(lngIndex).ProgID
Debug.Print Application.COMAddIns(lngIndex).GUID
Next
End Sub

__________________
Greg Maxey
Please visit my web site at http://www.gregmaxey.com/