[AccessD] Excel addin syntax problem

The last line here generates an error of compile error expected =. What
am I doing wrong. Thanks.

 

Set Obj = CreateObject("Excel.Application")

Obj.Workbooks.Open (Obj.Application.LibraryPath & "\SOLVER\solver.xla")

Obj.Workbooks("solver.xla").RunAutoMacros (xlAutoOpen)

Obj.Application.Run("solver.xla!SolverOk", SetCell:=Range("A1"))