Hi Rob

Okay, how do I tell?
FormatSheet...Unhide

Try this instead

Sub testme()
Dim wks As Worksheet
Dim newWks As Worksheet

For Each wks In ActiveWorkbook.Worksheets
If wks.Visible = -1 Then
wks.Copy 'copies to a new workbook
With ActiveSheet
.Parent.SaveAs Filename:="C:\Data\" & .Name, _
FileFormat:=xlCSV
.Parent.Close savechanges:=False
End With
End If
Next wks
End Sub



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


"Robgrant" wrote in message ...
I clicked unhide for the workbook, but still get stuck at the same point in the macro.
"Ron de Bruin" wrote in message ...
Do you have hidden worksheets in your workbook ?

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


"Robgrant" wrote in message ...
I adjusted the path to D:\CSVDATA
I get stuck on line starting: wks.copy

Can you give me a little more information? I'm rather new at this.

Thanks
"Ron de Bruin" wrote in message ...
Hi Robgrant

Try this

You can save every sheet then as a CSV file with a loop
Dave Peterson posted this macro to save each sheet as a CSV

Sub testme()
Dim wks As Worksheet
Dim newWks As Worksheet

For Each wks In ActiveWorkbook.Worksheets
wks.Copy 'copies to a new workbook
With ActiveSheet
.Parent.SaveAs Filename:="C:\WINDOWS\TEMP\" & .Name, _
FileFormat:=xlCSV
.Parent.Close savechanges:=False
End With
Next wks

End Sub

(adjust the path)



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


"Robgrant" wrote in message ...
Is there a way to batch convert many worksheets, contained in one workbook, into individual csv files?

Thanks