Saving worksheet as .csv type

[William Maka]

I would like the Save As dialog window when it opens to
automatically show worksheet file type as .CSV.

How can I incorporate that in Visual Basic code below:

Application.Dialogs(xlDialogSaveAs).Show "C:\DOC\Sample\"
+ MySheet + ".csv"

 

[Dan E]

William,

I'm not sure how using the dialogs, but here's an alternative

SaveName = Application.GetSaveAsFilename(Initialfilename:="C:\DOC\Sample\" & Mysheet & ".csv", _
FileFilter:="CSV (Comma Delimited) (*.csv), *.csv")
ThisWorkbook.SaveAs Filename:=SaveName, FileFormat:=xlCSV

Dan E