Option Explicit
Sub testme01()
Dim wks As Worksheet
Set wks = Worksheets("sheet1")
wks.Copy 'to a new workbook
With ActiveSheet.Parent
.SaveAs Filename:="whateveryousaveitas.CSV", FileFormat:=xlCSV
.Close savechanges:=False
End With
Workbooks.Open Filename:="whateveryousaveitas.CSV"
End Sub

Chris Jakeman wrote:

Hi,

As part of a major Excel project, I need to write out a worksheet as a
CSV file and to read it back in.

I've chosen to do this the quick way as the worksheet may have
thousands of rows in it, so I don't want to do file i/o line by line.

I met a few problems along the way which I think I've solved. Anyone
else tried this?

Bye for now,

Chris Jakeman
Peterborough, UK

--

Dave Peterson