Tutorial by Examples

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

Page 1 of 1