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

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

--
Regards
Frank Kabel
Frankfurt, Germany


Phil Hageman wrote:
Does anyone have a macro that will list all charts and their titles
in a worksheet? Something like: Chart22 Financial Resuts
Chart23 Operational Results
Etc.

Thanks,
Phil

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