Private Function GetLastDayOfThisMonth() As Date GetLastDayOfThisMonth = DateSerial(Year(Now), Month(Now) + 1, 0) End Function