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




"Ian in Ankara" wrote in
message
...
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.

See Ron de Bruin's code at

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

"Ian in Ankara" wrote:

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.

Works a treat. Thanks a lot!

Ian

"Duke Carey" wrote:

See Ron de Bruin's code at

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

"Ian in Ankara" wrote:

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.