Hi mike

See how i do it in this mail macro with a array
http://www.rondebruin.nl/mail/folder1/mail3.htm

I also create a temporary window to avoid a bug
It is up to you if you want to use it



--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm




"Mike R." wrote in message ...
Hello,
I would like to copy two worksheets (formatting and all...) from one
workbook and create a new workbook with just those two sheets. Here is the
code I used to copy one worksheet, but I can not figure out how to do two. I
am not opposed to all new coding:

' save worksheet with this file name
FilePathName = Sheets("Data").Range("I23") & "\" &
Sheets("Data").Range("I19") & "\" & Sheets("Data").Range("I21") & "\" & Date$
& ".xls"
newsht = ActiveSheet.Copy
Set Wkb = ActiveWorkbook
Wkb.Sheets("Current Openings").Name = "Current Openings"
With ActiveWorkbook
.SaveAs Filename:=FilePathName
.Close False
End With

Thank you in advance for your help!