xml data to excel spreadsheet in vertical format

It looks to me that you are not increasing Col at all.
In addition to that, I changed the SelectNodes to target only "items" as parent nodes. This way you will be able to fetch their children (it would work with "/*/*" as well).

Set xmlNodeList = xmldoc.SelectNodes("/EsrpPriceRequest/Items")
For Each xParent In xmlNodeList
    Col = 1
    For Each xChild In xParent.ChildNodes
        Worksheets("xmldata").Cells(Row, Col).value = xChild.Text
        Col = Col + 1
    Next xChild
    Row = Row + 1
Next xParent

Select allOpen in new window

Where is the third value coming from?

I would use the XML schema like this:

Public Sub ParseXmlDoument(AXmlDocument As Object, AStartCell As Excel.Range) ' Use correct type instead of object.

  Dim Items As IXMLDOMNodeList
  Dim Item As Object ' Use correct type instead of object.

  Dim ItemName As String
  Dim Row As Long
  Dim TargetPrice As Long

  Set Items = AXmlDocument.SelectNodes("/EsrpPriceRequest/Items")
  Row = 0
  For Each Item In Items 
    ItemName = Item.SelectSingleNode("Item").Text
    TargetPrice = CLng(Item.SelectSingleNode("TargetPrice").Text)
    AStartCell.Offset(Row, 0).Value = ItemName
    AStartCell.Offset(Row, 1).Value = TargetPrice
    Row = Row + 1
  Next Item

End Sub

Select allOpen in new window

Boris, Sorry another adjustment.. Please.

the other code worked fine..

Thank you both very very much !!!!