Copy new workbook vba

[Excelnoobisme]

Hi, i have a workbook which i use for my working everyday. At the end of the day i need to save a copy of my work.

I have predefine cell A1 in Name manager using (=text(today(),"DD-MMM") as the name of the new workbook. i.e. the copy i will save today will be name 22-Apr.

There are 5 worksheets in the working workbook and all must saved.
i need to save to C:/program files/ and cell A1.

Can some1 help me. i would like the copy to be still in .xlsm format

 

[GTO]

Are you trying to save copies as 5 different workbooks (1 for ea sheet) or just one copy of the wb in its entirety?

 

[Excelnoobisme]

Just trying to save all the 5 worksheets to 1 new workbook. exactly the same as the original working workbook

 

[GTO]

Hi there,

I'm currently in 2003 w/convertor. SaveCopyAs seems to be giving me fits, as I can give it the correct extension, the icon shows up correctly, but the file is glitched. Here's .SaveAs

Sub exa2()
    ThisWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & Sheet1.Cells(1).Text, FileFormat:=52
End Sub

I would try .SaveCopyAs though, as this will leave you running in the original wb.

 

[Excelnoobisme]

is it possible for me to clear certain data for the savecopyas copy? like i save exactly the same copies except that for cell A5:E10 i want to clearcontent.

 

[GTO]

Hopefully someone w/2007 or higher will stop in. With .SaveCopyAs, you could then open the copy, ditch the vals you wanted, save and close.