Hello again..
Missinglinq:
I tried your code in an unbound textbox on a report.

Both codes look similar to me,

= (date + (7 - Weekday(date,vbMonday)) + 1)

=Date()+7-Weekday(Date(),2)+1

I don't know enough about them to know what I am looking for

But I am learning.. thanks to people like you

Tracy