Thank You Very Much Prabhat. I tried your function and it solved my problem
. I used "attached text" instead of "name" for the below line
obj("name").Value = objName
. I used "attached text" instead of "name" for the below lineobj("name").Value = objName

