Sheets("Sheet2").Select 'select which sheet to copy/save
Sheets("Sheet2").Copy 'copy it to a new workbook
ActiveWorkbook.SaveAs ... 'specify filename, etc to create the first new
workbook
ActiveWorkbook.Close
' now repeat for the next sheet; note that the source workbook is left
unchanged by the steps above.


"Jez" wrote:

Hi,

Please help...

I am trying to save one workbook into 2 separeate excel files.

I want to try and save one worksheet as one file and delete other sheets,
then go back to my original data report and save another worksheet as a text
file.

How is this possible??

Thanks,
Jez