Resource.Overallocated property (Project)

True if a resource is overallocated. Read-only Boolean.


expression. Overallocated

expression A variable that represents a Resource object.


The Overallocated property does not return any meaningful information for material resources.


The following example displays the percentage of resources in the active project that are overallocated.

Sub DisplayOverallocatedPercentage() 
 Dim R As Resource ' Resource object used in For Each loop 
 Dim NOverallocated As Long ' Number of overallocated resources 
 For Each R In ActiveProject.Resources 
 If R.Overallocated Then NOverallocated = NOverallocated + 1 
 Next R 
 MsgBox (Str$((NOverallocated / ActiveProject.Resources.Count) * 100) _ 
 & " percent (" & Str$(NOverallocated) & "/" & Str$(ActiveProject.Resources.Count) _ 
 & ")" & " of the resources in this project are overallocated.") 
End Sub

Support and feedback

Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.