Macro fails to Loop Properly

Hi all,

Long time lurker, and finally the search function has let me down.

I am having issues with a loop, the macro works correctly for one full loop then goes bonkers.

I am handling the reporting of a project management company and we generally have 50-100 active projects that I need to generate a reporting on. Each report is made up of 8 different worksheets that I would like to combine into a single workbook per project. All the worksheets have their four digit project id in A1 as well as the code is in the name of the work sheet. IE '1826 Cover', '1826 - Man Hour Estimate'

The macro I am trying to create will perform the following loop. Take a value from a list of active projects, find all worksheets with this same value in cell A1, move these worksheets to a new workbook, save and close the new workbook, return to the original and move to the next entry in the list of projects.

Please Login or Register  to view this content.

Currently the first loop works flawlessly, then on the second loop too many sheets are selected then everything crashes.

Any quick hits?

Thank you very much sir/mam, she looped through the entire list.

Thanks again!