Save As 97-2003 workbook

[ThatGuy]

I am using Application.Dialogs(xlDialogSaveAs).Show in a macro to prompt the
user with the Save as dialog box. This defaults to Excel 2007 format in the
Save as type window but I need it to default to the Excel 97-2003 format.

Is there a way to do this so that the end user may send the workbook out to
users who still use the Excel 97-2003 format? I know they can manually change
it but they forget too and the SaveAs Box functionality required.

Thanks for your time.

 

[Chip Pearson]

Try code like

Dim FName As Variant
FName = Application.GetSaveAsFilename( _
filefilter:="Excel 97-2003 Files (*.xls),*.xls")
If FName = False Then
' user cancel
Exit Sub
End If
ThisWorkbook.SaveAs FName, xlExcel8

Cordially,
Chip Pearson
Microsoft MVP 1998 - 2010
Pearson Software Consulting, LLC
www.cpearson.com
[email on web site]