Renaming multi-branchable (Electrical Harness) in Catia V5

[paresh t]

Hello,
I need help to solve my VBA error.
While doing renaming with the help of VBA, the Pop-Up shows error as per snap attached:
And Line 35 (As per snap)in VBA Program is as below::

Selection.Item(i).Value.PartNumber = replace (Selection.Item(i).Value.PartNumber,ElementFindName , ElementName)

 

[paresh t]

Hello, Can anyone help me into this please....

 

[paresh t]

It shows Below error in Pop-up Window: The Method PartNumber Failed, Line 35

And Line Line 35 as per below:

Selection.Item(i).Value.PartNumber = replace (Selection.Item(i).Value.PartNumber,ElementFindName , ElementName)