I have the following macro to sort and date stamp my data and export it as
text. My query is how to export it as csv. Anyone have any suggestions?

Many thanks

TP

Dim campaign As String
campaign = Range("b3")

Range("A1:DB524").Select
Selection.Copy
Sheets("export").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False

Range("A1:DB524").Select
Cells.Replace What:="0", Replacement:="", LookAt:=xlPart, SearchOrder:=
_
xlByRows, MatchCase:=False, SearchFormat:=False,
ReplaceFormat:=False
Range("e3") = ""


Dim r As Range, c As Range
Dim sTemp As String

Open "Booking " & campaign & " " & Format(Date, "dd-mm-yy") + "_" +
Format(Time, "hh-mm-ss") & ".txt" For Output As #1




For Each r In Selection.Rows
sTemp = ""
For Each c In r.Cells
sTemp = sTemp & c.Text & Chr(9)
Next c

'Get rid of trailing tabs
While Right(sTemp, 1) = Chr(9)
sTemp = Left(sTemp, Len(sTemp) - 1)
Wend
Print #1, sTemp
Next r
Close #1

Range("A1:DB524").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("A1").Select
Sheets("Main").Select
Range("A1").Select



End Sub