How to move several worksheets in one workbook to several different workbooks

[AnthonyWB]

Hello everyone. I have worksheet, named "105", that contains several worksheets. I would like to move those worksheets to several other workbooks, with various names. Please see the code below:

Please Login or Register  to view this content.

I am getting an error, "subscript out of range", and I not sure of a correct fix. Any suggestions. Thank you.

[davegugg]

This error is occuring because once you move a sheet to a different workbook, that workbook becomes the active workbook. Before you can move another sheet in your source workbook, you need to activate it. Does that make sense?

I don't see the name of your source workbook, but before the line with the error you should put:

Please Login or Register  to view this content.

You'll need to put that after each line of code that moves a sheet to a different workbook.

[AnthonyWB]

I followed you suggestion, I now have an error in the code below:

Please Login or Register  to view this content.

according to the intermediate window, I have a subsript which is out of range?

[davegugg]

Subscript out of Range usually indicates you are refering to an object incorrectly. I'd check the spelling on each item in parantheses above.

[JBeaucaire]

You should utilize all the variables you've declared throughout the entire macro to keep the code easy to to edit...you need only edit your strings at the top.

For moving sheets, be sure to include the parent object wb1 as the source for the sheets you're trying to move.

This is how I would adjust your macro:

Please Login or Register  to view this content.

[AnthonyWB]

Yep you were right, Thanks !