Deleting Textboxes from Charts

[psmall]

I have a macro that rescales 60 charts and adds in a historic date to a textbox in each chart. When I run the macro to update the sheet it over writes another textbox over the existing one (some now have 10+ as I didn't realise this was happening as I had the following at the start of the macro:

Dim oTextBox As TextBox
For Each oTextBox In ActiveSheet.TextBoxes
oTextBox.Delete
Next oTextBox

which I thought would delete all the textboxes.

What I need now, is a macro to loop through each chart and delete all the textboxes that are now there. So in essence it should be for each chart (say 1 to 60), delete all textboxes (say Textbox 1 to Textbox 12). Is this possible?

 

[Domenic]

To delete all textboxes, regardless of their names, within each Chart object, try...

Dim ChrtObj As ChartObject

On Error Resume Next
For Each ChrtObj In ActiveSheet.ChartObjects
    ChrtObj.Chart.TextBoxes.Delete
Next ChrtObj
On Error GoTo 0

Hope this helps!

 

[psmall]

Brilliant - that seems to work fine. Many thanks as I have taken ages with different methods to try and achieve this.