Private Function Last_Week_Day(ByVal vDate As Date) As Date Last_Week_Day = DateAdd("D", 6 - Weekday(vDate, vbMonday), vDate) End Function