Sub ChangeXmlMapProperties()
With ActiveWorkbook.XmlMaps("EmployeeSales_Map")
.name = "New_Name"
.ShowImportExportValidationErrors = False
.SaveDataSourceDefinition = True
.AdjustColumnWidth = True
.PreserveColumnFilter = True
.PreserveNumberFormatting = True
.AppendOnImport = False
End With
ThisWorkbook.XmlMaps(1).name = "EmployeeSales_Map"
End Sub