For completion sake, the entire code:
Sub XMLtoXLS()
Dim oXML, oXSL, filestr, Targetfolder
Dim sHTML, fso, FileName, MyFile
Dim xlApp, xlWbk
Const ForWriting = 2
Const TristateTrue = -1
Const xlNormal = 51
'Load the XML and the XSL (the stylesheet).
Set oXML =...