Auto save

[Flex13CMP]

Hi I was wondering if somebody could help me make a macro so every monday my workbook saves as a seperate file everyweek.
e.g on modnay the 13th feb it saves the file 02/13/02
and the week after it says 02/20/02.
Please could somebody help me on this topic, much appreciated thank you.

 

[Al Chara]

Try the following code:

Private Sub Workbook_Open()
Dim TodayDate As Date
TodayDate = Date
If WeekdayName(Weekday(TodayDate)) = "Monday" _
Then ThisWorkbook.SaveAs Filename:=Format(TodayDate, "mm_dd_yy")
End Sub

Put it in the module for your workbook.