Insert Call out with text

[charm1]

Hi Experts,

I am trying to add a callout shape thru VBA. Below is the code which I have with the help of macro recorder, but it is not showing the text in the shape.
Someone please look into it and it will be great if you tied up this code a bit.

Please Login or Register  to view this content.

[kev_]

now it works

Please Login or Register  to view this content.

[kev_]

as does this

Please Login or Register  to view this content.

[charm1]

Thanks Kev

It works fine and thanks for providing the clean code

Regards,
Charm