Changing text in a text box on a chart

I have a large data set which I need to generate a graph for each colum of data. The marco currently copies each colum in turn to a sheet where the data is put into a template chart, it then saves the chart to a file. Currenty the chart title is picked up from a cell for the coppied colum. However the current dataset has titles too lage for the chart title to take - so I would like to add a text box to the chart and for each colum of data change the text in the text box.

I currently have this to add the text box to the chart

ActiveSheet.ChartObjects("Chart 1").Activate
ActiveChart.Shapes.AddTextbox(msoTextOrientationHorizontal, 10, 10, 750, _
50).Name = "chart_title"

I'm struggling with this bit where the text is imported

ActiveSheet.ChartObjects("Chart 1").Activate
ActiveChart.Shapes(chart_title).TextFrame.Characters.Text = Range("D3")


Thanks in advance

Thanks AlphaFrog- I didn't notice that they were missing - works now.