シート数を取得する

シート数を取得するにはCountプロパティを使用します。

上のサンプルブックについて、以下のコードを実行してみます。

Sub Proc_シート数()
    Dim n As Integer
    n = ActiveWorkbook.Worksheets.Count
    
    Debug.Print "ワークシート数は" & n & "個です。"
End Sub

結果は以下のようになります。