When I try to do the following procedure, I get an 'Out of Memory'
error. Why would this be?

Sub nameidentify()

Application.ActiveChart.Name = "Analysis"

End Sub

That line works on a chart sheet. For an embedded chart you need:

Application.ActiveChart.Parent.Name = "Analysis"

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Tutorials and Custom Solutions
Peltier Technical Services, Inc. - http://PeltierTech.com
_______


"R Tanner" wrote in message
...
When I try to do the following procedure, I get an 'Out of Memory'
error. Why would this be?

Sub nameidentify()

Application.ActiveChart.Name = "Analysis"

End Sub

Try this syntax:

Sub nameidentify()
With Sheets(1).ChartObjects(1).Chart
.HasTitle = True
.ChartTitle.Text = "Analysis"
End With
End Sub

I couldn't get it to respond to ActiveChart.
"R Tanner" wrote:

When I try to do the following procedure, I get an 'Out of Memory'
error. Why would this be?

Sub nameidentify()

Application.ActiveChart.Name = "Analysis"

End Sub