Hi,
try something like following

Sub charts_names()
Dim i As Integer
Dim xlChart As ChartObject

For i = 1 To ActiveWorkbook.Worksheets.Count
For Each xlChart In Worksheets(i).ChartObjects
MsgBox xlChart.Name
Next xlChart
Next i

End Sub

Jare

--
Message posted from http://www.ExcelForum.com