Problems placing a title on a chart

[Osprey2]

I am using the following code to place a tite on a chart:-

Please Login or Register  to view this content.

When I run this code I get the error "This chart does not have a title". I do not get this message every time I run the code, although I have not yet been able to characterise the situations where it works.
I am new to chart coding so I am using Macros to help me. I must have gone wrong somewhere however and need some help to show me where.
John

[Artik]

The code so far assumes that when inserting a chart, it always contains a title. As you can see, this is not always the case, although I do not know the reason.
I propose a little code improvement.

Please Login or Register  to view this content.

Artik

[Osprey2]

Artik many thanks for your thoughts. The app was open when I first copied your code in and to my great delight it worked. I then closed everything down and then reopened the app, clicked the button for this procedure and then got the object variable not set message this time for the line If not ActiveChart. HasTitle Then . The full code contains some lines to clear off any charts for previous runs. I think I will move that to the close procedure. What I cannot understand is why there should be a difference depending on when you start.
John

[Artik]

Try this code which does exactly the same as yours, just without selecting any objects.
If the situation does not improve, try repairing your Office installation.

Please Login or Register  to view this content.

Artik