Additional Controls

[deepheat101]

Hello All

I am using the following code to verify that the two additional controls that on of my UserForms uses are loaded and available...

Private Sub Workbook_Open()
    
    If AddIns("LANDesk Date Control").Installed = False Then
        Application.AddIns.Add ("LANDesk Date Control")  '  <<<<<
    End If

    If AddIns("LANDesk Time Control").Installed = False Then
        AddIns("LANDesk Time Control").Installed = True
    End If

End Sub

...however, I get a "subscript out of range" error at the line indicated by the "<<<<<".

Any suggestions will be much appreciated....

Many thanks in advance

 

[sunnyland]

Hie,

I couldn't test using the same addin as I don't have it however I used solver and lookup instead and it works. To test untick manually solver and lookup via the menu then run it and see if this work:
Now you will have to use the name of the file as the addin name with extension. To check the addin name run displayaddins

Private Sub displayaddins()
    Dim myaddin As AddIn
    For Each myaddin In Application.AddIns
    MsgBox myaddin.Name
    Next
     Set myaddin = Nothing
End Sub

To install the addin.

Private Sub Workbook_Open()
    Dim myaddin As AddIn
    For Each myaddin In Application.AddIns
    Select Case myaddin.Name
    Case "SOLVER.XLA", "LOOKUP.XLA"
    If myaddin.Installed = False Then
    myaddin.Installed = True
    End If
    End Select
    Next
    Set myaddin = Nothing
End Sub

 

[deepheat101]

Many Thanks SunnyLand