Save workbook as seperate workbooks

[Floorplan]

Hi all,

I came across a post on here that has helped me in what I need to do but I need to change it slightly for my needs, link to previous post below:

http://www.excelforum.com/excel-prog...workbooks.html

I need this vba code to search for specific worksheets and then save them in a new workbook (I will specifiy the name of the workbook). This will happen multiple times for 18 worksheets in total. Some of the new workbooks will contain 2 of these worksheets, some will only contain one.

I am assuming I could have a tab that lists which worksheets I want to go into a new workbook and then have a list next to that with the names I want to call each new workbook?

Hope this makes - if you need any more information in your completing the quest to help me, please let me know

Thanks in advance,
Ruby.

[JBeaucaire]

Yes, you can do this. Attach a sample workbook. Make sure there is just enough data to make it clear what is needed.

Click on GO ADVANCED and use the paperclip icon to open the upload window.

View Pic


Make sure your sheets are there and your LISTS sheet that lists what sheets will go into what new workbooks. This sheet should probably include a PATH to save these new workbooks into, as well.

[Floorplan]

Hello,

Thank you for your response I've attached a sample workbook as requested. I've listed the worksheets in column A & B and the name I want to call the newly created workbooks in column C.

If you need anything else, please let me know.

Thanks again,
Ruby.

[JBeaucaire]

Experience tells me to rearrange your sheet so that you can have as many sheets as you want in the list without having to move the other columns, so I moved your workbook names to column A, now your sheet list can go as far to the right as you ever want it to go.

Column A and column B should be considered REQUIRED for each row, then as many additional sheets as you want.

Please Login or Register  to view this content.

[Floorplan]

Hello!

Thank you again, this is very helpful. To get it to work I had to tell vba to ignore the below lines of code:

If Right(fPATH, 1) <> "\" Then fPATH = fPATH & "\"
' If Len(Dir(fPATH)) = 0 Then
' MsgBox "The destination path does not exist or is incorrectly entered." & vbLf & "Please correct and try again."

and

' Exit Sub
' End If

It kept coming up with the incorrect destination path even though it is correct and I made sure it has a backslash after it :S

But it works when I take that out so hurray thank you very much!!! I appreciate it

Ruby

[JBeaucaire]

If that takes care of your original question, please select Thread Tools from the menu link above and mark this thread as SOLVED. Thanks.

[Floorplan]

Done Thank you again!