Project.Month.Working.md

title	ms.service	api_name	ms.assetid	ms.date	ms.localizationpriority
Month.Working property (Project)	project-server	Project.Month.Working	6fa33218-2cf0-dbe4-af31-514c7c83a047	06/08/2017	medium

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

[!includeSupport and feedback]