software

Does anyone know an easy way to create multiple single-sheeted workbooks from
a single multi-sheeted workbook?

What I am actually trying to do is create multiple csv files for data import
from a workbook that contains many worksheets.

Try some code like

Sub AAA()
Dim WS As Worksheet
For Each WS In ThisWorkbook.Worksheets
WS.Copy
Next WS
End Sub--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com

quot;Ian in Ankaraquot; gt; wrote in
message
...
gt; Does anyone know an easy way to create multiple single-sheeted
gt; workbooks from
gt; a single multi-sheeted workbook?
gt;
gt; What I am actually trying to do is create multiple csv files
gt; for data import
gt; from a workbook that contains many worksheets.
See Ron de Bruin's code at

www.rondebruin.nl/copy6.htm

quot;Ian in Ankaraquot; wrote:

gt; Does anyone know an easy way to create multiple single-sheeted workbooks from
gt; a single multi-sheeted workbook?
gt;
gt; What I am actually trying to do is create multiple csv files for data import
gt; from a workbook that contains many worksheets.

Works a treat. Thanks a lot!

Ian

quot;Duke Careyquot; wrote:

gt; See Ron de Bruin's code at
gt;
gt; www.rondebruin.nl/copy6.htm
gt;
gt; quot;Ian in Ankaraquot; wrote:
gt;
gt; gt; Does anyone know an easy way to create multiple single-sheeted workbooks from
gt; gt; a single multi-sheeted workbook?
gt; gt;
gt; gt; What I am actually trying to do is create multiple csv files for data import
gt; gt; from a workbook that contains many worksheets.