Month.Working property (Project)

True if any day in the month is a working day. Read/write Boolean.

Syntax

expression. Working

expression A variable that represents a Month object.

Example

The following example makes June, July, and August nonworking months for resources in the "Student" group of the active project.

Sub GiveStudentsSummerOff() 
 
 Dim R As Resource ' Resource object used in For Each loop 
 Dim Y As Year ' Year object used in For Each loop 
 
 ' Look for resources in the "Student" group of the active project. 
 For Each R In ActiveProject.Resources 
 
 ' Give the summer off to resources in the "Student" group. 
 If R.Group = "Student" Then 
 For Each Y In R.Calendar.Years 
 Y.Months("June").Working = False 
 Y.Months("July").Working = False 
 Y.Months("August").Working = False 
 Next Y 
 End If 
 
 Next R 
 
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.