Hi Ian,

Am Sun, 28 Apr 2013 06:43:21 -0700 (PDT) schrieb pcorcele:

I have data in col a to e:
I would like a macro that would copy all the data(all the way to the bottom) and then save that data as a CSV file.

try:
Sub SaveAsCSV()
Dim WbkName As String
Dim myPath As String

WbkName = "Test"
myPath = "C:\Users\Claus Busch\Desktop\"
Sheets("Tabelle1").Copy
ActiveWorkbook.SaveAs Filename:=myPath & WbkName & ".csv", _
FileFormat:=xlCSV, CreateBackup:=False
ActiveWorkbook.Close
End Sub


Regards
Claus Busch
--
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2