Error when calling PowerPoint from Access

At the line of code [obj_PPointApp.Visible = True] that makes Powerpoint visible, the following error is reported :

"Error Number : -2147417848 - Automation eroor - The object invoked has disconnected from its clients"

Any suggestions on how to overcome this issue.

'   Local variable definition
Dim obj_PPointApp As PowerPoint.Application
Dim obj_PPointOpen As Boolean
 
On Error GoTo OpenPPointPres_Err
    
    '     Set new occurrance of PPoint
    Set obj_PPointApp = New PowerPoint.Application
    
    '     Test for outlook already open
    obj_PPointOpen = True
    Set obj_PPointApp = GetObject(, "PowerPoint.Application")
    
    '     If applicaton not open, then create application
    If obj_PPointApp Is Nothing Then
     Set obj_PPointApp = CreateObject("PowerPoint.Application")
          obj_PPointOpen = False
    End If
    
    '     Display application and then open document
    obj_PPointApp.Visible = True
    obj_PPointApp.Presentations.Open strDocName

Select allOpen in new window