If you read yesterday’s post, you’ll remember that I was kvetching about how setting the status date in the master project didn’t set the status date for subprojects – and how this impacted both task updates and EVMS calculations in the master project.
I could have just left it there, but I figured I’d sit down with my newfound VBA skills and see if I couldn’t write a macro to update subprojects’ status date in a master project.
Well, I did and here it is:
Sub StatusDate() Dim SP As Subproject Dim ISMaster As Boolean Dim MasterStatusDate As String If ActiveProject.Subprojects.Count > 0 Then ISMaster = True Else: End End If MasterStatusDate = InputBox("Enter the status date for the project.", "Set Status Date", MasterStatusDate) For Each SP In ActiveProject.Subprojects SP.SourceProject.StatusDate = MasterStatusDate Debug.Print SP.SourceProject.Name Debug.Print SP.SourceProject.StatusDate Next SP End Sub