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"

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

"William Maka" wrote in message ...
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"