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