Auto save

Flex13CMP · Apr 10th, 2002, 01:40 PM

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 · Apr 10th, 2002, 01:52 PM

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.

Apr 10th, 2002, 01:52 PM	#2
Al Chara MrExcel MVP Join Date: Feb 2002 Location: Monterrey, Mexico Posts: 1,433	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. __________________ Kind regards, Al Chara

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Apr 10th, 2002, 01:40 PM	#1
Flex13CMP New Member Join Date: Apr 2002 Location: Isle of Man Posts: 7	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.