Thanks for the idea Greg.

I've put your code into the following:

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
Exit For
Next
End Sub

Nothing prints.

Ideas?

Thanks.

Kurt