Breaking a Pivot into multiple sheets, and then into multiple workbooks (using VBA)

Hi all, apologies if this has been asked elsewhere and I missed it.

I'm trying to write a macro to automate the production of reports from a single source file, all of which then need to be sent to individuals for expense-claiming purposes.

I've successfully automated the process to the point of generating a pivot table which is then split to multiple tabs. However, I'm stuck with progressing things further. I have written a script that successfully removes the pivot from each tab, leaving only the raw data formatted into tables. However, the script only works on one tab at a time when I manually run it; when I try to make it loop through all tabs on the active workbook, Excel crashes horribly. There will typically be around roughly 100 tabs. I haven't even started on the part of the script that exports each tab to separate files!

Is there a better way of doing this, or is my code just horribly optimised?

Please Login or Register  to view this content.