Inserting the current Monday's date in a Word document

A less boring macro for Word. OK, it isn't so exiting, but it might be an interesting lesson for someone studying macros. Steve

Inserting the current Monday's date in a Word document | TechRepublic: "Use this easy-to-implement Word macro to return the date for the current Monday, any day of the week"

 Sub ReturnCurrentMonday()

 'Return Monday of current week.

 Dim dteMonday As Date

 dteMonday = IIf(Weekday(Date) = 1, Date - 6, _

 Date - (Weekday(Date) - 2))

 Selection.InsertBefore dteMonday

End Sub