Public Sub GetChartSheets() Dim myCharts As Sheets Dim chSheet As Chart Set myCharts = ActiveWorkbook.Charts For Each chSheet In myCharts Debug.Print chSheet.name Next End Sub