COMAddins

[Paul Sansom]

Hi & Happy New Year 2018

Am i being too simplistic? Trying to check if a COM Add-In "BERTRibbon.Connect" is installed and if not ignore a line of code that then turns it off

    If Application.Addins("BERTRibbon.Connect").Installed = False Then GoTo jmp

This doesn't work, and I guess because it is for Addins rather than a Com Add-In ??? Getting an out of subscript range error!

I cant use this

If Application.COMAddIns("BertRibbon.connect").Connect = False

as I get an error if the Add-In is not previously installed

Any guidance gratefully appreciated.... Paul

 

[Paul Sansom]

So here is my solution to my specific issue. It is not the solution I sought rather a work around. I just handle the error if the Addin does not exist rather than code around if the Com Add-In is not installed
Not very elegant but it works.

So.... If BERT (comsAdd-In) is not installed then the error is trapped at NoBERT, and if installed and no error is seen then BERT Add-in always starts not intitated (switched off)

On Error GoTo NoBERT
    If Application.COMAddIns("BertRibbon.connect").Connect = True Then Application.COMAddIns("BertRibbon.connect").Connect = False
Continue:

At the bottom of my Private Sub Workbook_Open() is my error handling.

Done:
    Exit Sub
NoBERT:
    MsgBox Range("MsgBoxBERT")
    GoTo Continue

End Sub

There is no call to Done: so really it does not need to be there but it marks the Exit Sub point