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


--
Regards Ron de Bruin
http://www.rondebruin.nl


"sungen99 " wrote in message ...
This is my last and final problem.

I have already set up 3 different worksheets within one workbook. My
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 but
it would only have the first 3 pages saved. No reason for the client
to see my fancy programming.

Can this be done?

Thanks again in advance


---
Message posted from http://www.ExcelForum.com/