Hello, 5656.
Suppose the Cell where the date is to place is at B4.
If I can continue the sage you've started in Thread68-165797, then you can append a line to auto_open():
Sub Aut

pen()
If WeekDay(Now()) = 1 Then
Range("B2:B3"

.ClearContents
End If
Range("B4"

.Value = Now() + 11 - (WeekDay(Now()) + 5) Mod 7
End Sub
The effect of this is to allow you not to put a formula in B4 which might be susceptible to be accidentally changed.
If you want to put the formula instead in B4, then it would be:
B4: = Now()+11-Mod(Weekday(Now())+5,7)
The cell B4 is required to be formatted to of date such as mm/d/yy or similar. Hrs:mins:secs would not then be displayed.
I had started with Now(), so I continue to use it in the above. You can also replaced it everywhere by Today() as suggested by neufarth. It does not really that much if you do not have further arithmetical manipulation on it.
regards - tsuji