Modify Excel Code to split multiple worksheets based on criteria

Hi All

I have this code which splits the multiple excel worksheets into individual excel file and saves it all in location as specified.
Each Excel file is named after the sheet name.
I basically have 5 sheets say MODELA, MODELB, MODELC, MODELD,and MODELE.
what i want is, I have one more Sheet called DATA, which needs to come along with each 5 Workbook after the split.
Ex: ModelA work book shoul have MODELA sheet and DATA Sheet but the excel file name should be MODELA and So on.

Please Login or Register  to view this content.

Thanks in advance

Hi Norie

Thanks for that.
When i run the above code it returns an error.
It says Method 'Copy' of object 'sheets' failed at this line.

Please Login or Register  to view this content.

What could be the problem?

Thanks again

Only one workbook gets generated that is ModelA with data sheet.
Before the second it returns the above error.

Yes its in same workbook and the name is exact DATA.
The first MODELA gets generated along with DATA sheet and then it stops.

Hi Norie Im trying to upload the file, but somehow it wouldnt work.
May be uploading facility is disabled at the place where im working.

Hi Norie
I dono much about VBA but your code below, are we ending both If statements?

Please Login or Register  to view this content.

Thanks