Weird error when trying to name a chart

Hi everyone,

I'm stumped: I'm getting an error while trying to name a chart object using the following VBA code:

Sub Macro1()
'
' Macro1 Macro
'
ActiveSheet.Shapes.AddChart.Select
ActiveChart.Name = "Anything"

'
End Sub

Even if I run this code in a fresh workbook with no other vba code active, I get "runtime error 7: out of memory." The error occurs on line 6,
when the code tries to apply a name to the chart.


This code is part of a larget macro I'm workin on, but I have isolated it for ease of diagnoasis. Does anyone know why I'm getting this error?

Thanks!

Nolan