List Charts in a Worksheet

[Guest]

Does anyone have a macro that will list all charts and their titles in a worksheet? Something like
Chart22 Financial Resut
Chart23 Operational Result
Etc

Thanks
Phil

 

[Frank Kabel]

Hi
have a look at
http://www.tushar-mehta.com/excel/software/maketoc/index.html

 

[Guest]

I found this in old notes, and it works - now I need to add the chart title behind the chart name

Sub ListCharts(
'Screen prints a list of charts in a worksheet
Dim Msg As Strin
Dim ChtObj As ChartObjec
Msg = ActiveSheet.Name & vbCrL
For Each ChtObj In ActiveSheet.ChartObject
Msg = Msg & vbCrLf & ChtObj.Name '& ChtObj.ChartTitl
Nex
MsgBox Ms
End Sub