maybe...

dim myFileName as Variant
myfilename = application.getsaveasfilename("comma separated values, *.csv")
if myfilename = false then
'user hit cancel
else
activeworkbook.saveas filename:=myfilename, fileformat:=xlCSV
end if

..getsaveasfilename won't do the save, but it'll give you the name--so you can do
your own save.

invictus1964 wrote:

I want to prompt the user for a save as file name and defualt the file type
to csv. I am trying
Application.Dialogs(xlDialogSaveAs).Show Arg2:=xlCSV
result: saves file as csv then code is interrupted
also tried
Filename = Application.GetSaveAsFilename( _
fileFilter:="Comma Seperated Values (*.csv), *.csv")
result: no interruption but does not save file and cannot recall name using
ActiveWorkbook.SaveAs

--

Dave Peterson