(opens new window)
Option Explicit Sub CheckWorksheetsDiagram() Debug.Print Worksheets(1).Name Debug.Print Charts(1).Name Debug.Print Sheets(1).Name End Sub
The result:
Sheet1 Chart1 Chart1
Read Articlehttps://develop.horje.com/learn/1434/reference