Split pairs of worksheets to separate workbooks

Greetings,

I have a workbook with multiple worksheets as follows: RawData; Report1; Report2; Report3, etc.. where each ReportX worksheet is built using data from the RawData worksheet.

I would like to create multiple workbooks for each ReportX worksheet, INCLUDING the RawData worksheet.

I found code to split single worksheets to multiple workbooks, but not for inclusion of a second sheet...

Thank you!

Thank you so much for your prompt reply.

When I run the code - I get a Run-time error '438' / Object doesn't support this property or method.

When I hit debug - this is the highlighted line of code: ThisWorkbook.Sheets("RawData").Copy Before:=(ActiveWorkbook.Sheets(1))

Thanks again!

Thanks - That did it!

Thank you so much for this post - this was exactly what I was looking for. However, when other users try to run the macro on our company network, they are getting an error code (Error 1004 “Application-defined or Object-defined error”). Any idea how to resolve?

I figured out the problem. I was using the shared drive letters in my macro (i.e. R:\) but the other user who was getting the error had the shared drive mapped to a different letter. By using the server name instead (i.e. \\servername\) of the drive letter, the macro runs fine. Thank you again for the original code!