Macro to save the sheet with date as its name!!

[ckmoied]

Hi,

I need a macro that can copy and save the current sheet in another workbook with current date as its name.

Thanx.

 

[DonkeyOte]

This copies active sheet to new workbook and saves new book as date. This should be enough to get you started.

ActiveSheet.Copy
ChDir "C:\MrE"
ActiveWorkbook.SaveAs Filename:="C:\MrE\" & Day(Date) & Month(Date) & Year(Date), FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
ActiveWorkbook.Close

 

[ckmoied]

Hi Luke,

Thank you for the macro support. But there is a sort of misunderstanding.

I don't want to create another workbook with the date as its name, rather I want the worksheet to be saved with the date as its name.

Suppose I have a master workbook named "BP_Records.xls", now every time I run this macro my current sheet must be save in BP_Records.xls, with the date as its name.

so if I run this macro on daily basis, for the coming 10 days, then I must have 10 sheets saved in BP_Records.xls, on the 11 day, and all the sheets must have the dates as their names. Also the format of the date must be "dd/mm/yy".

Hope its more clear now. Thanking again for your contribution.

 

[DonkeyOte]

ActiveSheet.Name = Day(Date) & Month(Date) & Year(Date)

NOTE: You can't use \ in sheet names.

If this is to happen each time a sheet is added etc you can make this into a worksheet event.