Sub Macro1()
Dim oAddIn As COMAddIn
    For Each oAddIn In Application.COMAddIns
'Debug.Print oAddIn.Description
        If oAddIn.Description Like "*Dragon*" Then
            oAddIn.Connect = Not oAddIn.Connect
            Exit For
        End If
    Next oAddIn
End Sub