Delete multiple worksheets in multiple workbooks

[BradA]

I pull a report off of the bank's internal reporting software and end up with a list of about 500 loans. There are about a dozen account officers that are each responsible for some of the loans. What I ultimately want to do is to create a workbook for each officer, showing only that officer's accounts. Right now my code creates a separate worksheet in the original workbook for each officer, and then creates a new workbook for each of those worksheets, and saves it. The problem is that my code just names a copy of the workbook (with about 13 sheets) after each sheet name, but all of the other sheets are still in each book. So I'd like to be able to delete from (or not include in the first place) officer A's book all of the sheets with other officer's info, and from officer B's book delete all sheets that are not his, etc. Any help is appreciated. Thanks

 

[Saagar]

Since you already have a code, reply with the code. It may just need a few tweaks.

Just so my understanding is clear... you want code in the original workbook to create a new workbook for each officer and "copy" worksheets for respective officer. Do you want to keep the sheets in the original workbook intact?

 

[Charlie45]

Check this thread and see if this code works for you

http://www.mrexcel.com/forum/showthread.php?t=541290

 

[BradA]

Saagar, Charlie, thanks to both of you. I was able to come up with a solution on my own. I appreciate your time.