Sub ImportXML(path As String) Application.ImportXML DataSource:=path, ImportOptions:=acStructureAndData End Sub