Prompt for SaveAsDialog with file type preset.

Try this code:

Sub a_saveFile()
Dim myFile

myFile = Application.GetSaveAsFilename( _
fileFilter:="Comma Seperated Values (*.csv), *.csv")
ActiveWorkbook.SaveAs myFile
MsgBox "File saved as : " & myFile
End Sub

Hope this helps,
theDude