Save In Different Format

[BluesBros]

I'm currently creating a file which is named as an excel file. How can I amend the code below so that is saved as a text or CSV file?

MyName = Format(Date, "dd mm yy")
FSave = Application.GetSaveAsFilename(InitialFileName:=Sheets("sheet5").Range("D2").Value & " Backup Dated " & MyName)
If TypeName(FSave) = "Boolean" Then
Application.DisplayAle

 

[Joe4]

Here is some code that I use to save files as space delimited text files (prn). See if this helps:

'   Save file
    Dim mySaveFile As String
    MsgBox "You will now be prompted to save the file" & vbCrLf & _
           "Please select the appropriate drive and name you would like to give the file"
'   Prompt for new file name
    mySaveFile = Application.GetSaveAsFilename("MyFile.prn", "Formatted Text (space delimited) (*.prn), *.prn")
'   Save as a formatted text file
    ActiveWorkbook.SaveAs Filename:=mySaveFile, FileFormat:=xlTextPrinter