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