Saving 3 Worksheets as New Workbook

All,

I had a segment of VBA working some time ago, but I've modified the worksheet so much now that the macro doesn't work like it should. I am trying to create a master file that will automatically refresh my reports, and save each department's information as it's own workbook. Every department will have 3 worksheets, so I would like the VBA to take every 3 worksheets and save them as a new file. I'd like the name of the new file to be "(first worksheet name)_(text in cell B5 on the second worksheet).xls". For example, if my 3 worksheets are 44001, 44001_Month, and 44001_Historical and the text in B5 on 44001_Month were September, then it would save all three of those worksheets with the name 44001_September.xls. This is the code I'm currently using:

Please Login or Register  to view this content.

Any help you can give would be great!

Thank you.

I didn't test this, but I think this is the only change needed...

Please Login or Register  to view this content.