close



Try this:

Right click on the sheet tab
Select: Move or Copy
Then follow the prompts. You can either create a copy of the sheet or
actually move the sheet to a new workbook.

Does that help?

Regards,
Ron--
Ron Coderre
------------------------------------------------------------------------
Ron Coderre's Profile: www.excelforum.com/member.php...oamp;userid=21419
View this thread: www.excelforum.com/showthread...hreadid=493070jmd

You could follow Ron's advice and do it manually or use a macro.

Sub Make_New_Books()
Dim w As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each w In ActiveWorkbook.Worksheets
w.Copy
ActiveWorkbook.SaveAs FileName:=ThisWorkbook.Path amp; quot;\quot; amp; w.Name
ActiveWorkbook.Close
Next w
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

If not familiar with VBA and macros, see David McRitchie's site for more on
quot;getting startedquot;.

www.mvps.org/dmcritchie/excel/getstarted.htm

In the meantime..........

To create a General Module, hit ALT F11 to open the Visual Basic Editor.

Hit CRTL R to open Project Explorer.

Find your workbook/project and select it.

Right-click and Insertgt;Module. Paste the above code in there. Save the
workbook and hit ALT Q to return to your workbook.

Run the macro by going to Toolgt;Macrogt;Macros.Gord Dibben Excel MVP

On Tue, 13 Dec 2005 08:35:03 -0800, jmd gt; wrote:
And another

This one test for hidden sheets and create a folder for you
www.rondebruin.nl/copy6.htm

--
Regards Ron de Bruin
www.rondebruin.nlquot;Gord Dibbenquot; lt;gorddibbATshawDOTca@gt; wrote in message ...
gt; jmd
gt;
gt; You could follow Ron's advice and do it manually or use a macro.
gt;
gt; Sub Make_New_Books()
gt; Dim w As Worksheet
gt; Application.ScreenUpdating = False
gt; Application.DisplayAlerts = False
gt; For Each w In ActiveWorkbook.Worksheets
gt; w.Copy
gt; ActiveWorkbook.SaveAs FileName:=ThisWorkbook.Path amp; quot;\quot; amp; w.Name
gt; ActiveWorkbook.Close
gt; Next w
gt; Application.DisplayAlerts = True
gt; Application.ScreenUpdating = True
gt; End Sub
gt;
gt; If not familiar with VBA and macros, see David McRitchie's site for more on
gt; quot;getting startedquot;.
gt;
gt; www.mvps.org/dmcritchie/excel/getstarted.htm
gt;
gt; In the meantime..........
gt;
gt; To create a General Module, hit ALT F11 to open the Visual Basic Editor.
gt;
gt; Hit CRTL R to open Project Explorer.
gt;
gt; Find your workbook/project and select it.
gt;
gt; Right-click and Insertgt;Module. Paste the above code in there. Save the
gt; workbook and hit ALT Q to return to your workbook.
gt;
gt; Run the macro by going to Toolgt;Macrogt;Macros.
gt;
gt;
gt; Gord Dibben Excel MVP
gt;
gt; On Tue, 13 Dec 2005 08:35:03 -0800, jmd gt; wrote:
gt;
gt;

arrow
arrow
    全站熱搜
    創作者介紹
    創作者 software 的頭像
    software

    software

    software 發表在 痞客邦 留言(0) 人氣()