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