Create Separate Workbook for Each Excel Tab

Hello,

I'm using the following code to make a separate excel workbook for each tab in my main file. Code works great, the only change I'm trying to accomplish would be to have it skip my data tabs. For example, the tabs named "START", "PM FEES", "TEMPLATE", "RECQ FEE", "LEDGER" should not have a separate excel file created. Only if the name is not one of these listed sheet names, then it should create its own workbook when this macro is ran. Can something help me accomplish this change?

Please Login or Register  to view this content.

Does this work ?

Please Login or Register  to view this content.

I'm receiving an error on the "if ws.name <> "start" line.

Edit the path to match your system :

Please Login or Register  to view this content.

Now errors out on "xWs.Copy"

Are there other sheets in the workbook besides the ones listed NOT to be copied ?

Did you edit the path where the workbooks will be saved, to match your computer ?

Yes, several other sheets in the workbook. That is why I was needing the statement adding to prevent it from creating workbooks for these specified tabs. It works as intended in the original code i posted, I just wanted to try and avoid it from creating the sheets I don't actually need as a separate workbook.

Based on the information you provided, my last code example works. Download the sample workbook and try it. Again, you'll need to edit the path where the books will be saved so it matches
your computer.

Change this line :

Application.ActiveWorkbook.SaveAs Filename:=xPath & "" & xWs.Name & ".xlsx"

To this :

ActiveWorkbook.SaveAs Filename:="T:\Test\Test\Collaboration\FA\Project Financial Summary (DRM)\Project Financial Sheets" & xWs.Name & " Project Financial Summary " & Format(Date, "mm-dd-yy") & ".xlsx", FileFormat:=51

I'm not sure what the issue is but the "xWs.Copy" line still errors out. I appreciate the help, but I'll just stick with my original script and deal with the extra excel files created. Thank you for your help.