表示されているシート枚数を取得するユーザー定義関数

「vba 非表示のシート カウントしない sheets.count」
という検索キーワードで、このサイト・インストラクターのネタ帳へのアクセスがありました。

Excel VBA（Visual Basic for Applications）では、Sheets.Countプロパティで、全シートの数を取得できますが、すべてのシートの枚数ではなく、非表示シートを除外した、表示されているシートの枚数だけを取得する方法を探していた方による検索です。

表示されているシートの枚数を取得するプロパティは存在しない

オブジェクトブラウザーで確認しても、Sheetsコレクションオブジェクトに、表示されているシートの枚数を取得するらしきプロパティは見当たりませんから、

地道にカウントするしかありません。

表示されているシートの枚数をカウントするExcelマクロ

以下のようなマクロで、表示されているシートの枚数を取得できます。

全シートに対するFor Each～Nextループの中で、
　For Each sh In Sheets

各シートのVisibleプロパティを調べて、表示されていたときに変数・nをインクリメントして、
　　If sh.Visible Then n = n + 1

最後にメッセージを表示しています。

表示されているシートの枚数を取得するユーザー定義関数

表示されているシートの枚数を取得する処理が頻繁にあるのなら、ユーザー定義関数を作っておくのも一案でしょう。

ここでは、シートの枚数をカウントするブック名を、引数で指定するユーザー定義関数にしてみました。
　Function VisbleSheetsCount(Optional ブック名 As String) As Variant

引数が指定されなかった場合には、アクティブなブックで、表示されているシートだけをカウントします。
　Dim bk As Workbook: Set bk = ActiveWorkbook
　If ブック名 <> "" Then
　　Set bk = Workbooks(ブック名)
　End If

ブック名を引数で指定する関係で、For Each～Nextループで処理する対象をしているするオブジェクト式が、先ほどのマクロとは少しだけ異なります。
　For Each sh In bk.Sheets

存在しないブック名が引数に指定された場合、エラー値を返すようにしています。
　　On Error GoTo ERR_HNDL
　ERR_HNDL:
　　Err.Clear
　　VisbleSheetsCount = CVErr(xlErrNA)

エラー値を返す可能性があるため、このFunctionプロシージャの戻り値はバリアント型になっています。
　Function VisbleSheetsCount(Optional ブック名 As String) As Variant