With objMilestones
.SetMiscProperty "Use4DigitYears",1
.SetStartAndEndDates "1/1/2017","12/31/2017"
.Refresh
End With
Milestones Professional 2021 Automation Methods and Properties. © Copyright 2001-2021, KIDASA Software, Inc. All rights reserved.