Private Sub ExportTestsData() Dim objad As AdditionalData
Set objad = Application.CreateAdditionalData
objad.Add "Questions"
objad(Item = "Questions").Add "Answers"
Application.ExportXML acExportTable, "Tests", "c:\tests4.xml", "c:\tests4.xsd", AdditionalData:=objad End Sub