Tim Williams wrote:
Just open a file from vba and write out the XML by looping through the
range.

eg (untested - treat as pseudocode)

dim rngOut as range,r as row, c as range

set rngOut=activesheet.range("A1:C10") 'for example

'....open file write the header info to file

'loop through content
for each r in rngOut.rows
'print to file "<row"
for each c in r.cells
'print to file "<column" & c.value & "</column"
next
'print to file "</row"
next r


Tim

thx will try it out
Sujith