Excel SaveAs Procedure 1

[SanAntonioSpurFan]

I have the following Excel Procedure straight out of the Excel OnLine Help Tool. When I use this code it works correct but does not include the file extension. So if the user does not type .xls at the end of the filename, the file is not saved as as Excel file when you view from explorer. I tried adding the fileformat:=xlWorkbookNormal but it did not work....Any clues?

Sub SaveMe()
Set NewBook = Workbooks.Add
Do
fName = Application.GetSaveAsFilename
Loop Until fName <> False
NewBook.SaveAs Filename:=fName
End Sub

 

[PHV]

Have you tried this ?
fName = Application.GetSaveAsFilename( _
fileFilter:="Excel Files (*.xls), *.xls")


Hope This Help, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884

 

[SanAntonioSpurFan]

That did it! Thanks...