Hi snaggy

Try this that copy the csv in C:\

Sub Save_ActiveSheet_CSV_File()
Dim wb As Workbook
Dim strdate As String
Dim Fname As String
strdate = Format(Now, "dd-mm-yy h-mm-ss")
Fname = "C:\Part of " & ThisWorkbook.Name _
& " " & strdate & ".csv"
Application.ScreenUpdating = False
ActiveSheet.Copy
Set wb = ActiveWorkbook
With wb
.SaveAs Fname, FileFormat:=xlCSV
.Close False
End With
Application.ScreenUpdating = True
End Sub


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


"snaggy^^" wrote in message ...
I have in my "Summary" page a table which has four coloumns and an undefined
number of rows. There's nothing under this table, so the firs white line
means the end of it. I need a macro to export this table as a kind of backup,
in a txt o cvs file.

When i search the help file for it, i find just XML exporting, and mapping
(by the way i don't understand what it is)

bye