Check if Add-In is loaded

[MartinK]

Hello,
I have an add-in that is not installed (take it as fact) and is started via command line:
C:\TM1S7\Programs\tm1.xla /e
as a new instance of Excel. The add-in is kind of OLAP database.

In my code I would like to check whether I have started Excel with this add-in or not, if not I want to to exit the routine at its very start.

Is this the right approach? (I feel sorry I have to use a new variable, have already quite a lot in the routine, Explicit is On)

'check for TM1, exit if not loaded
On Error Resume Next
    Set chkTM = Workbooks("TM1.xla")
    If Err Then MsgBox "TM1 Not Loaded!" & vbLf & vbLf & "Can't continue!", vbCritical + vbOKOnly, "TM1 not loaded": Exit Sub
    Err.Clear
On Error GoTo 0

Thank you
Martin

 

[pcc]

try this

Option Compare Text
Sub test_code()
For Each wb In Application.AddIns
If wb.Name = "tm1.xla" Then GoTo 10
Next wb
Exit Sub
10:
' rest of code here
End Sub

 

[MartinK]

Hello,
this does not seem to work as the Application does not recognize "tm1" as add-in. It has never been installed.
I think this is because if you install it, it loads always with Excel which basically I do not want, it slows down the system and I do not want to re-install/install all the time.
That's why I have the command line in Excel Shortcut 2.
Thanks
Martin