Select sheet tabs in workbook & save to separate workbook files

Product is Excel 2003
I have workbooks that have up to 130 sheet tabs.
After selecting all 130 sheet tabs,
is there a function or macro that will allow me to
copy each of the 130 sheet tabs into it's own separate 130 workbooks
at one time.

----------------
This post is a suggestion for Microsoft, and Microsoft responds to the
suggestions with the most votes. To vote for this suggestion, click the "I
Agree" button in the message pane. If you do not see the button, follow this
link to open the suggestion in the Microsoft Web-based Newsreader and then
click "I Agree" in the message pane.

http://www.microsoft.com/office/comm...heet.functions

Ron de Bruin has code at his site to do just that

http://www.rondebruin.nl/tips.htm


"stratocaster" wrote:

> Product is Excel 2003
> I have workbooks that have up to 130 sheet tabs.
> After selecting all 130 sheet tabs,
> is there a function or macro that will allow me to
> copy each of the 130 sheet tabs into it's own separate 130 workbooks
> at one time.
>
> ----------------
> This post is a suggestion for Microsoft, and Microsoft responds to the
> suggestions with the most votes. To vote for this suggestion, click the "I
> Agree" button in the message pane. If you do not see the button, follow this
> link to open the suggestion in the Microsoft Web-based Newsreader and then
> click "I Agree" in the message pane.
>
> http://www.microsoft.com/office/comm...heet.functions

Hi stratocaster

You can use this macro

http://www.rondebruin.nl/copy6.htm


--
Regards Ron de Bruin
http://www.rondebruin.nl


"stratocaster" <[email protected]> wrote in message news:[email protected]...
> Product is Excel 2003
> I have workbooks that have up to 130 sheet tabs.
> After selecting all 130 sheet tabs,
> is there a function or macro that will allow me to
> copy each of the 130 sheet tabs into it's own separate 130 workbooks
> at one time.
>
> ----------------
> This post is a suggestion for Microsoft, and Microsoft responds to the
> suggestions with the most votes. To vote for this suggestion, click the "I
> Agree" button in the message pane. If you do not see the button, follow this
> link to open the suggestion in the Microsoft Web-based Newsreader and then
> click "I Agree" in the message pane.
>
> http://www.microsoft.com/office/comm...heet.functions