error trap and exit procedure when MS Project app does not exist

[Ken Cowen]

I have some code that exports Excel info to MS Project, if MS Project is open. If MS Project does not exist on the computer this code generates an error in the Set projApp line. Why does it ignore the On Error Resume Next line? This is part of a significant application that needs to work on computers with and without Project. This particular function needs to run only if MS Project exists and is open.

Dim projApp As MSProject.Application
On Error Resume Next
Set projApp = GetObject(, "MSProject.Application")
On Error GoTo 0

If projApp Is Nothing Then
     Exit Sub
Else

Thanks

Ken

 

[Marc L]

No issue on my side :​

    Dim oMSP As Object
    On Error Resume Next
    Set oMSP = GetObject(, "MSProject.Application"):  If Err.Number Then Exit Sub
    On Error GoTo 0

 

[Ken Cowen]

Thank you