Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Dim ws As Worksheet, cho As ChartObject
For Each ws In ActiveWorkbook.Worksheets
For Each cho In ws.ChartObjects
MsgBox cho.Chart.Name
Next
Next
MsgBox cho.Chart.ChartTitle.Text