With the help of @Shrotter I get the idea here is my solution. I used referance string creation methods. It's a great success at my life. thank you again Shrotter.

Dim inz
    For Each inz In prtLst

        'Referans string creation
        Dim sRef 
        sRef = rtPrd.Name & "/" & inz.Name & "/!" & bdyName

        'Create referance
        Set rfBdy = rtPrd.CreateReferenceFromName(sRef)

        'Find da body
        sel.Clear
        sel.Add(rfBdy)
        sel.Copy

        'Activate target
        sel.Clear
        sel.Add(trgtPrt)
        sel.PasteSpecial "CATPrtResult"

    Next