Ah. I think I've got it. Thanks for the tips. It helps to know what I'm looking for.

Here's what I came up with:

'-----
' Set the profile
'-----
app.SetActiveProfile("Production 9")
If Checkerror("app.SetActiveProfile") = True Then
Exit Sub
End If

I inserted the above code prior to opening the project. Everything seems to be working fine.

Much appreciated,

Jim