Sub AAA()
ActiveChart.ChartTitle.Text = "=Sheet1!R9C1"
ActiveChart.Name = Worksheets("Sheet1").Range("A9").Value


End Sub


--
Regards,
Tom Ogilvy

"Josie" wrote in message
...
As you nailed that one so easy...

The macro draws a chart from data on worksheet 1 then
stores the chart as a new sheet. How do you...

Title the chart with a word that is found in cell A9 of
worksheet 1?

Name the sheet that the chart is on with the same word?

I owe you guys big time for this!