Save Files As XML

I am trying to put together an excel workbook that our customer service can fill in a spreadsheet and then convert all the data to XML and put into a folder. The issue comes in that we can have up to 12 parts included in the item field. The XML maps this as a vertical drop down as opposed to a horizontal spreadsheet.

XML won't paste with code.

I have a macro put together, that works, but saves them as text files. Is there a way to convert my macro to save as XML or is there another way to do this?

Macro:
Sub Macro1()
'
' Macro1 Macro
'

'
Dim n As Integer
Dim r As Integer
Dim Fname As String

[Code] ..........