VBA@XL

[オブジェクト] Sheets

Sheets オブジェクトはブック内のすべてのシートを指し、Worksheets オブジェクトと Charts オブジェクトの両方を含みます。

Worksheets オブジェクトを選択した場合

Sub Sample1()
  Worksheets.Select
End Sub

Charts オブジェクトを選択した場合

Sub Sample2()
  Charts.Select
End Sub

Sheets オブジェクトを選択した場合

Sub Sample3()
  Sheets.Select
End Sub

例えばこういうプロシージャを実行すると、

Sub Sample4()
  Dim i As Integer
  Dim obj As Object
  
  i = 2
  Range("A1").Value = "ワークシート"
  For Each obj In Worksheets
    Cells(i, 1).Value = obj.Name
    i = i + 1
  Next
  
  i = 2
  Range("B1").Value = "チャート"
  For Each obj In Charts
    Cells(i, 2).Value = obj.Name
    i = i + 1
  Next
  
  i = 2
  Range("C1").Value = "全シート"
  For Each obj In Sheets
    Cells(i, 3).Value = obj.Name
    i = i + 1
  Next
End Sub

こんなふうになります。