John,
Oops! I forgot to tell you to step through the macro instead of running
it. As you step through, you can look at the variables (in this case
there is just one) and see the value. However, to make it a little more
convenient, try the following:
Sub pool()
ResPoolLoc = ActiveProject.ResourcePoolName
MsgBox "Resource Pool path:" & Chr(13) & _
ResPoolLoc, vbInformation
End Sub
Sorry for the omission.
John