Error using SetContectMember as a ComAddin Object

I want to hold the entity of the sheets with multiple workbooks.

Every workbook has his one entity

To do this I can use

    Dim ea As New EPMAddInAutomation

     ea.SetContextMember ea.GetActiveConnection(ActiveSheet), "Entity", Range("C5" )

AND THAT WORKS FINE BUT

To avoid errors when there are no references to FPMXLCLIENT - EPM I use always a COMADDIN object

That works normally fine excepts when I use it here:

               Dim eaEPMAutomation As Object

                     Set eaEPMAutomation = Application.COMAddIns("FPMXLClient.Connect").Object

                        eaEPMAutomation.SetContextMember eaEPMAutomation.GetActiveConnection(ActiveSheet), "Entity", Range("C5")

It gives error 438 I have no idea how to solve this. Object does not support this property or method. What can I use instead?