error 424

[James]

Hi,

I'm using the following code to make some changes to a specific file on a
before save event (the code is in the enterprise global).

Private Sub Project_BeforeSave(ByVal pj As MSProject.Project)
If ActiveProject.Name = "<file I want to run code on>" Then
If vbResponse = vbNo Then
Exit Sub
End If
<code that I want to run>
End If
End Sub

This code works fine but generates a 424 error on the second line of the
code ( If ActiveProject.Name =....) when closing MS Project.

It surprises me that the BeforeSave Event is triggered at this time.

Also, the particular file I use it on does not show up in the visual basic
editor.

Thanks,

James

 

[Rod Gill]

What happens if you use:

pj.Name=.... ?

Where does the pjResponse variable/constant come from?

--

Rod Gill
Microsoft MVP for Project

Author of the only book on Project VBA, see:
http://www.projectvbabook.com

 

[James]

Hi Rod,

Thanks for your response.

Using pj.Name works to allow the code I want to run but now I get a
different error when I close MS Project:

Run-time error '91':

Object variable or With block variable not set

I guess the pj variable doesn't return a null if pj is not instiantiated? Is
there some way to handle or throw this error?

Thanks,

James

 

[Rod Gill]

If not pj is nothing then
your code
End if
--

Rod Gill
Microsoft MVP for Project

Author of the only book on Project VBA, see:
http://www.projectvbabook.com

 

[James]

Hi Rod,

That worked perfectly, Thanks!

James

If not pj is nothing then
your code
End if
--

Rod Gill
Microsoft MVP for Project

Author of the only book on Project VBA, see:
http://www.projectvbabook.com