xlworkbooknormal = -4143
in xl2003.

So I guess it would depend on what version of excel the OP is using.

Barb Reinhardt wrote:

Isn't the fileformat for .xls 56 or xlExcel8, not xlWorkbookNormal (51?).

"Dave Peterson" wrote:

GetSaveAsFileName doesn't save the file. It only gets the name from the user.

Dim auserfile as variant
auserfile = application.getsaveasfilename(...)

if auserfile = false then
'user hit cancel, what should happen?
else
whateverworkbookyou'reworkingon.saveas filename:=auserfile, _
fileformat:=xlworkbooknormal
end if

Much like the suggestion you got in the other thread.

Bishop wrote:

I have the following code in a procedu
AUserFile = Application.GetSaveAsFilename(InitialFileName:=IFN , _
FileFilter:="Microsoft Office Excel Workbook(*.xls),*.xls", _
FilterIndex:=1, Title:="You Must Save Before You Proceed")

The box pops up with name I specify. The InitialFilename parameter fills in
as I specify. But when I click Save nothing happens. The file name remains
the same and when I look in the folder where I am trying to save the file
there's nothing there. Why doesn't it work?

--

Dave Peterson


--

Dave Peterson