Dim sh as Worksheet
for each sh in Activeworkbook.Worksheets
sh.copy
Activeworkbook.SaveAs Filename:="C:\MyCSVFolder\" _
& sh.Name & .csv, _
FileFormat:=xlCSV
ActiveWorkbook.Close Savechanges:=False
Next

--
Regards,
Tom Ogilvy



"Glen Mettler" wrote in message
...
I have a workbook containing 15 sheets. I want to save out each sheet
seperately as a CSV file.
Something like this:
For each sheet in MyWorkbook
sheets().select
save this sheet as CSV
next

How can I do that programmaticly?

TIA
Glen