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

ワークシートの数を取得するには Worksheets コレクションの Count プロパティを使用します。Count プロパティは取得のみ可能で、設定はできません。シートの追加・削除を行うとCount プロパティは自動的に変更されます。

～目次～

Countプロパティの使用方法
Countプロパティの使用例
1. ワークシート名を列挙
2. 最後尾のワークシート名を表示

Countプロパティの使用方法

構文

Worksheets.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ループでワークシート名をすべて列挙する

マクロ実行結果（イミディエイトウィンドウ）
```
シート名：AAA
シート名：BBB
シート名：CCC
```

最後尾のワークシート名を表示

アクティブワークブック内の最後尾のワークシート名を表示する例です。

Sub sample_eb072_02()
    Dim lastShtName     As String

    lastShtName = Worksheets(Worksheets.Count).Name
    Debug.Print "最後尾シート名：" & lastShtName
End Sub

マクロ実行結果（イミディエイトウィンドウ）
```
最後尾シート名：CCC
```

次は試しに、ワークシート『AAA』を手動で最後尾へ移動し、sample_eb072_02を実行してみます。

マクロ実行結果（イミディエイトウィンドウ）
```
最後尾シート名：AAA
```