Excel VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Excel
  4. Get Chart sheet
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