Tyrolit

I have a workbook that I have split into separate worksheets using the Pivot Table, Show Pages command - I would like to split these sheets and save to individual new files (automatically of course!) - any help much appreciated to save me masses of time every time I have to do this!!