Hi -
Not quite sure what you mean by "this" Monday, but...
This will give you the Monday before Date1
Date1 - (7 + DatePart("w", Date1) - vbMonday) Mod 7
And this will give you the next Monday after (unless the day is a Monday)
Date1 + (7 + vbMonday - DatePart("w", Date1 ))...