Trying to write code to save file as .csv

[winwall]

this code works to create all the .pdf's i require - however i need to also create a .csv file of one of the sheets - sheet 1 - what would the line of code be?

this is the line of code i have for creating the .pdf file

        Sheets("sheet1").Visible = True
        Sheets("sheet1").ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\rqr\" & FName & " Unacceptable " & FDate & ".pdf", quality:=xlQualityStandard, includedocproperties:=True, ignoreprintareas:=False, openafterpublish:=False
        Sheets("sheet1").Visible = False

i need the same sheet to be saved as a .csv file in teh same directory with the same file name

any help would be awesome!!