Many a times we need to enforce users for certain compliances like DONOT use Local Resource, it affects demand management data 😉 so to warn every project manager when they save their plan fire the below mentioned macro just to warn them that they are using local resource in their plan
Sub CheckLocalResources()
Dim res As Resources
Set res = ActiveProject.Resources
Dim r As Resource
For Each r In res
If r.EnterpriseUniqueID = -1 Then ‘ -1 means it’s a local resource
MsgBox (r.Name)
End If
Next r
End Sub
Leave a comment