Hi,

The following code work fine until I try to added the 7th filefilter. I want
to have 21 different filefilter or 24 filefilter. If I can find out the
FileFormatValue for (*.xml), (*.xlam), and (*.xla).

The question is how to get my code to have more than 6 filefilter without
having a run-time error 13.

My Code

NewFullName = Application.GetSaveAsFilename(InitialFileName:=(My FullName),
filefilter:= _
" Excel Workbook (*.xlsx), *.xlsx," & _
" Excel Macro-Enabled Workbook (*.xlsm), *.xlsm," & _
" Excel Binary Workbook (*.xlsb), *.xlsb," & _
" Excel 97-2003 Workbook (*.xls), *.xls," & _
" Single File Web Page (*.mht; *.mhtml), *.mht; *.mhtml," & _
" SYLK (Symbolic link) (*.slk), *.slk", _
FilterIndex:=1)

I still want to add 14 more filefilter between Single file web page and SYLK:

" Web Page (*.htm; *.html), *.htm; *.html," & _
" Excel Template (*.xltx), *.xltx," & _
" Excel Macro-Enabled Template (*.xltm), *.xltm," & _
" Excel 97-2003 Template (*.xlt), *.xlt," & _
" Text (Tab delimited) (*.txt), *.txt," & _
" Unicode Text (*.txt), *.txt," & _
" XML Spreadsheet 2003 (*.xml), *.xml," & _
" Microsoft Excel 5.0/95 Workbook (*.xls), *.xls," & _
" CSV (Comma delimited) (*.csv), *.csv," & _
" Formatted Text (Space delimited) (*.prn), *.prn," & _
" Text (Macintosh) (*.txt), *.txt," & _
" Text (MS-DOS) (*.txt), *.txt," & _
" CSV (Macintosh) (*.csv), *.csv," & _
" CSV (MS-DOS) (*.csv), *.csv," & _
" DIF (Data Interchange Format) (*.dif), *.dif," & _

Thank you