assume newexcel.xls does not exist and the other two workbooks are open.

Workbooks("Report1.xls").Worksheets("report1").Cop y
Workbooks("Report(1).xls").Worksheets("report1(1)" ).Copy _
After:=Activeworkbook.worksheets(1)
ActiveWorkbook.SaveAs Filename:="C:\MyFolder\newexcel.xls"

--
Regards,
Tom Ogilvy


"psk" wrote in message
...

Hi,
I need help in copying two worksheets in different workbooks into one
workbook with two sheets .

Example
report1.xls has one sheet name report1
report(1) .xls has one sheet name report1(1)

i want to move this two into one workbook
name newexcel.xls with two sheets name report1 and report1(1)

Can anyone help me in writing the code ...

Thanks
Punitha


--
psk
------------------------------------------------------------------------
psk's Profile:
http://www.excelforum.com/member.php...o&userid=15738
View this thread: http://www.excelforum.com/showthread...hreadid=277734