Oh got it now I thinkThanks a lot
OrCode:Private Sub ManipulateXLM() Dim doc As New MSXML2.DOMDocument doc.Load("C:\Documents and Settings\z3xld\Desktop\2Usecases.xml") With doc //Do stuff End With End Sub
Code:Private Sub ManipulateXLM() Dim doc As MSXML2.DOMDocument Set doc = new MSXML2.DOMDocument doc.Load("C:\Documents and Settings\z3xld\Desktop\2Usecases.xml") With doc //Do stuff End With End Sub




Thanks a lot
Reply With Quote