Saving Excel worksheet to a CSV Comma Delimited

[Livin404]

I am using the follow VBA and it appears to be working; however, it saves everything in a general format. I need to keep the source format.

Sub saveRangeToCSV()

    Dim myCSVFileName As String
    Dim myWB As Workbook
    Dim tempWB As Workbook
    Dim rngToSave As Range

    Application.DisplayAlerts = False
    On Error GoTo err

    Set myWB = ThisWorkbook
    myCSVFileName = myWB.Path & "\" & "XMAN-" & VBA.Format(VBA.Now, "dd MMM yyyy hhmm") & ".csv"

    Set rngToSave = Range("A3:AB300")
    rngToSave.Copy

    Set tempWB = Application.Workbooks.Add(1)
    With tempWB
        .Sheets(1).Range("A1").PasteSpecial xlPasteValues
        .SaveAs Filename:=myCSVFileName, FileFormat:=xlCSV, CreateBackup:=False
        .Close
    End With
err:
    Application.DisplayAlerts = True
End Sub