ワークシート数の取得（Count プロパティ）

Countプロパティの使用例 ワークシート名を列挙 Worksheets コレクション内のワークシートオブジェクトへインデックス指定によりアクセスし、ワークシート名を順に表示する例です。 Sub sample_eb072_01() Dim i As Integer For i = 1 To Worksheets.Count Debug.Print "シート名：" & Worksheets(i).Name Next i End Sub For Eachループでワークシート名をすべて列挙する アクティブワークブック内のシート