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 )) Mod 7
If you want the closest Monday, you can set up some IF/THEN by lookng at (vbMonday - DatePart("w",Date1) and deciding which of the two methods to use.
- g