You can simplify the macro by using the optional parameter for Weekday which tells it what day to start the week on. I.e. the body of the macro could be
dteMonday = Date - Weekday(Date, vbMonday) + 1
In this case Weekday returns 1 for Monday, 2 for Tuesday etc.
Keep Up with TechRepublic