Excel VisualBasic Script

Private Sub TransformData()
                
    Application.TransformXML "c:\tests2.xml", "c:\transform.xsl", "c:\tests5.htm"
End Sub