Programmatically Changing XML Map Properties
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