You may check the version of the application:
xls_file = Application.GetSaveAsFilename("ppt title list" & IIf(val(Application.Version) >= 12, ".xlsx", "xls"), "Excel files (*.xls;*.xlsx),*.xls;*.xlsx", , "Save Excel file As...")