No problemo. Sorry I mislead you at first. You can change the file
type by changing this line to:

Application.Dialogs(xlDialogSaveAs).Show "", 6

The arguments for this command as found in VBA help a

xlDialogSaveAs - document_text, type_num, prot_pwd, backup,
write_res_pwd, read_only_rec

So in this case the document name is blank and the type_num is 6 which
means a CSV file.