Creating a new workbook.

S

sungen99

This is my last and final problem.

I have already set up 3 different worksheets within one workbook. M
macros and stuff resides on the 4th sheet of that workbook.

I would like the macro to create a new workbook saved for that day bu
it would only have the first 3 pages saved. No reason for the clien
to see my fancy programming.

Can this be done?

Thanks again in advanc
 
R

Ron de Bruin

Try this

Sub aa()
Dim wb As Workbook
Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Copy
Set wb = ActiveWorkbook
wb.SaveAs "C:\" & Format(Now, "dd-mm-yy h-mm-ss") & ".xls"
wb.Close False
End Sub
 
Top